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1.0 aSsTRACT 
“THIS PROGRAM IS 9 TEST OF THE MODEM CONTROL MULTIPLEXER USED WITH THE DHLI-AD OPTION 
Tue BROGRAM IS DIVICED INTO FUNCTIONAL TEST GROUPS AS 
GROUP CO: ALL_LINE SCANNER AND LINE MuLTIEL SENER FUNCTIONS ARE 
TESTED USING THE H361 TEST CONN 
SROUP 1: A SINGLE LINE IS TESTED USING thE TSE CABLE AND 


CONT gI-DISCONNECT TEST FOR 103A MODEMS 
CONNEC T@DISCONNECT TEST FOP e292 MODEMS 


é.C REQUIREMENTS 
= . 1 QUIPMENT 


PDP-11 COMPUTER WITH AT LEAST SK OF MEMORY 
KITH_OR_WITHOUT HARDWARE SUITCH REGISTER 
eon-33 TELETYPE OR EQUIVALENT 
CONTROL MODULES M7SO? $ MTSOS 
> Rig LINE SCANNER TEST 


4 CABLES TO CONNECT TO TEST CONNECTOR 
use: TEST CONNECTOR 
-1.2 FOR SINGLE LINE CABLE TEST 
4 CABLES TO CONNECT TO TSE DISTRISUTION PANEL 
BSI5 TEST CONNECTOR 
|}2.3.2 FOR ON LINE TESTS 
CRELES 19 CONNECT TO THE DISTRIBUTION PANEL 
SE.- 303 MODENS (FOR 1538 TEs 
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| 3.2 LOADING PROCEDURE 
THE STANDARD PROCEDURE FOR LOADING BINPRY TAPES IS TO BE USED. 
14.0 STARTING PROCEDURE 
(4.1 STARTING ADDRESS 
THE STGRTING AODRESS FOR ALL TESTS IS 000200. 


FESTART ADORESS FOR ALL TESTS I 
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OPERRTOR SND OR PROGRSM ACTION 


INITIAL PROGRAM START 





RARRERRHRHSARETED 
N 
RRRRRALTRRHRAAEAR 
IF PROGRAM IS SEING RUN WITH THE “XOR™ Ree TESTER 
COCATION 1030:8) MUST SE MODIFIED TO CONTAIN A 40:8) 
BROP TO ACTIVATE THAT CODE AFFECTING THE “xOR” TESTER. 
RELFHARRERA AER £4 
NOTE 
SHERERERSELRREALE 
ay SWITCH Reg! = ER IS DEFINED AS LOC. 176 *¢ 
TC LOADING INSTRUCTIONS) 


ey ST 
SeRSGFTUARE SUITCH REGISTER IS LOC. 176 


-i.2 PROGRAM WILL TYPE 
“DH1i-MODEM CONTROL DIAGNOSTIC “(ONCE ONLY? 
##"2NOTE: IF USING SOFTWARE SWITCH REGISTER THE FOLLOWING 
KILL SE TYPED BEFO ORE TITLE: 
SWR=XXXXXX NEW= (REFER TO SECTION 5.1.2 FOR OPTIONS? 


4.2.1.3 PROGRAM WILL TYPE (WITH SWOO = 
VECTOR ADDRESS-" AND WILL WAIT F R AN INPUT 
FROM THE TELETYPE KEYBOARD. 


4.2.1.4 TYPE A THREE DIGIT NUMBER (OCTAL) WHICH IS THE 

REDRESS ioe ys MODEM CONTROL WILL INTERRUPT TO, FOLLOWED 8 
RET N INCORRECT ADDRESS IS TYPED, THE PROGRAM WILL 

TYEE noe “ane THEN REPEAT 4.2.1.3. 


THE ADDRESS ENTERED IS ACCEPTIBLE TO THE peoGRan 
UT 35 mit THE INTERRUPT yECTOR ABGRESS OF THE MODEM CONTROL 
ES T A HALT WILL OCCUR AT THAT SpbRESSe2. WHEN 
MC SEs " honTRor INTERRUPTS 


TO RECOVER, PERFORM 4.2.2.1. 


4.2.1.5 THE or ge WILL TYPE “CONTROL REGISTER ADDRESS-" AND WAIT FOR 
BN INPLT FROM THE TELETYPE KEYBOARD. 
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4.2.1.6 TYPE ort i. Ma 397 WHICH ‘ THE ADDRESS OF THE SEG C004 
MODE! " Sy REGISTER FOL oy 0D BY <RETURN>. 
IF BN HAS SRREC SRS TS TYPED, THE PROGRAM WILL 
TYPE °°" AND THEN REPEAT 4.2.1.6. 


NOTE: JF _THE ADDRES RED IS ACCEPTIBLE TO THE PROGRAM 
rE 8 a NON “ts EO ee ree eee een hoe ATLL 
DECUR WHEN THE PROGRAM ADDRESSES THE REGISTER, AND THE 

PROGRAM vi HALT AT LOCATION &. 


TO RECOVER, PERFORM 4.2.2.3. 


4.2.1.7 THe PROGRAM WILL TYPE "LINE SELECTION PARAMETER-" AND WAIT FOR 
INPUT FROM THE TTY KEYBOARD. 
4.2 


.1.8 TYPE AN OCTAL NUMBER TO SPECIFY THE LINES TO BE TESTED USING 
THE FOLLOWING ENCODING SCHEME: 


BITOO = 1 TEST LINE 00 
BIT] = 1 TEST LINE O1 
BITGE = 0 DO NOT TEST LINE 2 
BITIS = 1 TEST LINE 15 


EG: TYPING 377(8) SELECTS LINES OO THRU O07 
TYPING 177777(8) SELECTS ALL 16 LINES 


| IF THE NO. TYPED 1§ NOT ACCEPTABLE, THE PROGRAM TYPES A "?™ 
| AND @SKS FOR THE LINE SELECT PARAMETER AGAIN. 
4.2.1.9 THE PROGRAM WILL TY 

“TEST-" AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD. 
} 
| 


4.2.1.10 Yee A THREE owt OCTAL NUMBER CO OTN TO THE 
NUMBER oF THE TEST TO BE RUN FOLLOWED BY <RETU 
IF AN INCORRECT TEST tt Is TYPED THE sRSckan WILL 
TYPE "?" AND THEN REPEAT 4.2.1.7 
THE AVAILABLE TESTS TOGETHER WITH THE NUMBER TO BE TYPED 
ABE GIVEN BSELOK. 


TEST GROUP OQ: 
Per hs, TESTS USING H861 TEST CONNECTOR-FIRST TEST=0 


i: 
TEST oro TESTS USING DC11 TEST CONNECTOR AND MODEM CABLE-FIRST TEST=109 
go NNEC Lape necr TEST FOR BELL 103A MODEMS-FIRST TEST=200 
Sine tt /CISCONNECT TEST FOR BELL 202C MODEMS-FIRST TEST=300 


4.2.1.1] THE PROGRAM WILL ENTER THE SELECTED TEST GROUP. 
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PROGRAM RESTART 

WITH SWOO=1 

LOAD ADDRESS 200 

SET SWOO=) BEFORE PRESSING START. 

sore oe SWITCH REGISTER IS LOC 17bee# 

PRESS STA 

PROGRAM WILL PERFORM AS DESCRIGED IN 4.2.1.3 TO 4.2.1.10. 
WITH SWOO= 

LOAD ADDRESS 200 

pee una SWITCH REGISTER IS LOC. 176 


PROGRAM WILL PERFORM AS DESCRIBED IN 4.2.1.7 TO 4.2.1.10 
OPERATING PROCEDURE 


TEST GROUP C 16 LINE SCANNER TEST 
TEST INITIALIZATION 


NONE REQUIRED, PROGRAM TYPES "16 LINE SCANNER TEST™ 
AND BEGINS TEST EXECUTION. 


OPERATIONAL SWITCH SETTINGS 


IF THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWITCH 


REGISTER THEN feats Sellthe a Te Ie ae saitcH 


L! 
RE 
IF_ THE aRDRARE aoe EGICTER NOT EXIST OR IF 0 NE D 
AND IT CONTAINS ALL 1 SNES (177 53,5 OFREN THE SOFTWARE SWITCH 
REGISTER (LOC. 176) IS USED. 
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REGISTER. 
OES 


CONTROL : 


THIS PROGRAM ALSO et THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THES CAN BE ACCOMPLISHED By 
DOING THE FOLLOWING: 


1) TYPE CONTROL G <¢G>; THIS WILL ALLOW THE TTY 10 ENTER DATA INTO 
Loc. 176 aT sELECTER POINTS WITHIN THE PROSRAM 


2) THE MACHINE WILL THEN TYPE: ne (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER. ) 


3) . THE **NEW="* HAS os TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE T 
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Q) TYPE @ NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. SEO o006 
Riya: GETHEEN 0-7 WILL BE ACCEPTED AND ONLY 6 NUNGERS 
ir oie FIRST KEY DEPRESSED THE SOFTHARE SUITCH 
SISTER CONTENTS AECL NOT BE CHARGED. 


8) IF A CONTROL U <tl> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 


BACK TO STEP 2. 
SWiS=1, HALT ON aes 
SW14=1, LOOP ON CURRENT TEST 
SW13=1, SUPPRESS ERROR TYPEOUT 
SW11=1, puree e ITERATIONS 
SW10=1, ESCAPE TO NEXT TEST ON ERROR 


SWwO9=1' FREEZE DATA 
5.1.3 PROGRAM AND“OR OPERATOR ACTION 


ca TEETs a SELECTED GROUP SEQUENTIALLY. EACH TEST IS REPEATED 


A FT) t D 

EXCEPT FOR TO WHICH IS EXECUTED ONCE ONLY AE EB ‘S101 OF TEST. WHEN A 

TESTS HAVE BEEN COMPLETED, THE PROGRAM WILL ISSUE A “RESET”, RING THE TELETYPE 
BELL, AND RESTART AT THE FIRST TEST OF THE SELECTED GROUP. 


ie IF AN ERROR OCCURS, THE PROGRAM WILL TYPE AN APPROPRIATE 
ERROR MESSAGE AND CONTINUE TESTING. 


5.1.3.2 WITH SW1S=1, PROGRAM ACTION WILL. BE AS IN S.1.3.1 EXCEPT THAT 
a HALT WILL’ OCCUR AFTER ERROR TYPEOUT. 
OTE: i USING THE SOFTWARE RY REGISTER AND AN EROR 
HALT OCCURS. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED 
Sy PRESSING ne THE PROGRAM WILL RESPOND WITH THE FOLLOWING: 


NO ERROR “THEOL WILL OCCUR. THE ©C OF THE té8t THAT FAILED 
WILL BE DISPLAYED IN THE COMPUTER DATA LIGHTS. 


) 5.1.5.4 THIS PROGRAM WILL NO LONGER TRACE TRAP WITH THIS RELEASE 
| §.1.3.5 WITH sil Oe) PROGRAM ACTION WILL BE AS IN S.1.3.1 EXCEPT THAT 


et WITH SW13=1, PROGRAM ACTION WILL BE AS IN $.1.3.1 EXCEPT THAT a -4 


AFTER GAN ERROR HAS OCCURED, THE PROSRAM WILL iHMEDTATELY 
| START ae NEXT TEST IN SEQUENCE. 
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TEST GROUP 1 SINGLE LINE CABLE TEST 
TEST INITIALIZATION 

THE PROGRAM WILL TYPE “SINGLE LINE CABLE TEST 
LINE NUMBER-" AND WILL WAIT FOR AN INPUT FROM 
THE TELETYPE KEYSOARD. 
TYPE A 2 DIGIT OCTAL NUNBER BETWEEN 0 AND 17, CORRESPONDING 
9 THE NUMBER OF THE at NE TO BE TESTED, FOLLOWED BY 

N>. THE PROGRAM WILL THEN BEGIN TEST EXECUTION. 

IF THE TELETYPE NeUT IS INCORRECT, THE FROGR 

WILL TYPE "?" AND REPEAT THE MESSAGE. 
OPERATIONAL SWITCH SETTINGS 
SAME AS 5.1.2 
PROGRAM AND/OR OPERATOR ACTION 
SAME AS 5.1.3 
TEST GROUP 2 BELL 103A MODEM CONNECT-DISCONNECT TEST 
TEST INITIALIZATION 

THE PROGRAM WILL TYPE “103A CONNECT-DISCONNECT TEST 
ORIGINATE LINE-" AND WAIT FOR AN INPUT FROM THE TELETYPE 
KEYBOARD. 
TYPE THE NUMBER OF THE LINE THAT WILL ORIGINATE THE 
CALL (O-17 OCTAL) FOLLOWED BY RETURN. 


THE PROGRAM WILL TYPE “ANSWER LINE-" AND WILL WAIT 
FOR AN INPUT FROM THE TELETYPE KEYBOARD. 


TYPE_THE NUMBER OF THE LINE ol WILL ANSWER THE CALL 
{O-17 OCTAL) FOLLOWED BY <RETURN>. 


THE PROGRAM WiLL, TYPE “CIAL ANSWERING DATA SET” 
AND WILL WAIT FOR THE ORIGINATE AND ANSWERING MODEMS 
TO GENERATE INTERRUPTS. 


OPERATOR ACTION TO MAKE TELEPHONE CONNECTION 
AFTER THE MESSAGE “DIAL ANSWERING DATA SET” IS TYPED 


THE OPERATOR HAS APPROXIMATELY S MINUTES TO ESTABLISH 
& CONNECTION BETWEEN THE 2 DATA SETS. 






















SEQ 0007 










PLACE ORIGINATING DATA SET IN “TALK” MODE 
DIAL DIAL ANSWERING DATA SET FROM ORIGINATING 
DATA SET 


a 


LISTEN FOR TONE IN HANDSET OF ORIGINATING DATA SET. 


WHEN TONE IS HEARD, PRESS “DATA” BUTTON ON 
ORIGINATING DATA SET. 


“DATA” LIGHT SHOULD ILLUMINATE 
“DATA” LIGHT ON ANSWERING DATA SET SHOULD BE LIT. 


5.3.2.8 THE PROGRAM WILL_NOW WAIT FOR 
INTERRUPTS FROM THE MODEM CONTROL. 


IF _THE CONNECTION HAS BEEN PROPERLY ESTABLISHED 
THE PROGRAM WILL TYPE “TYPE TTY KEY TO DISCONNECT”. 


WHEN TTY KEY IS STRUCK, THE PROGRAM WILL BEGIN THE 
DISCONNECT SEQUENCE. 
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§.3.2.8 WHEN THE Disc SEQUENCE HAS BEEN COMPLETED 
THE PROGRAM WILL TYPE “103A TEST COMPLETE” 
AND WILL REQUEST THE OPERATOR TQ SELECT mh LINES. 


PROGRAM ACTION IN CASE OF ERROR 
RING ON INCORRECT LINE 


IF THE PROGRAM DETECTS A RING SIGNAL ON AN INCORRECT 
LINE, OR IF ANY OTHER TRANSITION BESIDES RING IS 
DETECTED BEFORE RING, THE PROGRAM WILL TYPE 

A FATAL ERROR MESSASE AND REQUEST THE OPERATOR 

TO RESELECT LINES AND REDIAL 


OTHER ERRORS 


IF QNY ERRORS OCCUR AFTER THE FIRST RING HAS BEEN 
DETECTED, THE PROGRAM WILL TYPE AN APPROPRIATE ERROR 
MESSAGE AND CONTINUE TESTING TO COMPLETION. 


THE ONLY EXCEPTION TO THIS IS IF AN INTERRUPT 
OCCURS ON ; LINE NOT SELECTED 

CGSE A FATAL ERROR WILL BE RE boRTED, AND THE PROGRAM 
WILL PROCEED AS RESCATHERY IN 5.3.3.1 
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5.3.5 


NOTE: 























JOl 


OPERATION SWITCH SETTINGS 
IF THE DIAGNOSTIC IS oe ON A 1 WITHOUT A SWITCH 


FRE OSER THE sam pia: Betiohs i THE WAROLERE ut H RESLSTER. 


IF T AARDRARE SWIT 
AND IT CONTAINS ALL SNES (1777 525 OFHEN. THE SOFTWARE. SuITCH 
REGISTER (LOC. 176) IS USED. 


SEQ 0009 


CONTROL: 


THIS PROGRAM ALSO SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 
DOING THE FOLLOWING: 


TYPE CONTROL G <tG>; THIS WILL_ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


2) THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= (XXXXXX IS THE OCTAL CONTENTS 
OF THE SOFTWARE SWITCH REGISTER. ) 


AFTER THE **NEW=** HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


A) ier A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY A <CR>. 
(ONLY ae ALL CHES) WEEN O-7 WILL BE ACCEPTED AND ONLY & NUMBERS 


IF > IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <tU> IS DEPRESSED THEN THE PROGRAM WILL SEND YOU 
BACK TO STEP e. 
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SHIS=1, HALT ON ERROR 
SW13=1; SUPPRESS ERROR TYPEOUT 


DATA SET MODE SWITCHING 

As THE he ia HAS TYPED THE LS or DESCRISED 

IN 5.3.2.7, BUT BEFORE TTY KEY IS STRUCK, THE OPERATOR 
MAY SWITCH EITHER DATA SET FROM THE MODE THAT 

IT IS_IN TO ANOTHER 

PLL TRANSITIONS DETECTED AT THIS TIME WILL 

BE REPORTED. 

THE gt a Saal | DATA 34 MUST BE RETURNED TO “TALK” MODE 
AND THE A RING DAT 0 R 


1SC0 ROM BEING 
DETECTED THAT ARE CAUSED BY THE FACT THAT THE MODEM IS 
IN THE INCORRECT STATE. 
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TEST GROUP 3 BELL 20eC MODEM CONNECT-DISCONNECT TEST 
TEST INITIALIZATION 


SAME AS 5.3.1 EXCEPT PROGRAM WILL TYPE "202C CONNECT 
DISCONNECT TEST”. 


OPERATOR ACTION TO MSKE TELEPHONE CONNECTION 


SAME AS 5.3.2 EXCEPT AT END OF TEST, PROGRAM WILL TYPE 
“202 TEST COMPLETE”. 


PROGRAM ACTION IN CASE OF ERRORS 
SAME AS 5.3.3 

OPERATIONAL SWITCH SETTINGS 

SAME AS 5.3.4 

DATA SET MODE SWITCHING 


SAME AS 5.3.5 
TEST RESELECTION 


Jo ESCAPE FROM THE TEST IN PROGRESS, AND SELECT 
A NEW TEST, TYPE <CONTOL C>. 


THE PROGRAM WILL STOP te ely OF THE TEST IN PROGRESS 
AND THEN TYPE “TEST-" AND WAIT FOR AN INPUT FROM 
THE TELETYPE KEYBOARD. 


PROCEED AS DESCRIBED IN 4.2.1.8 
ADDRESS CHANGE 


TO CHANGE THE bp a 9 segs ADDRESS OF Nig MODEM CONTROL 
UNDER TEST, TYPE <CONTROL V>. — P 

STOP EXECUTION OF ae TEST IN PROGRESS AND PROCEED AS 
DESCRIBED IN SECTION 4.¢.1, EXCEPT TH 

"MODEM CONTROL DIAGNOSTIC” WILL NOT BE TYPED. 


LINE NUMBER CHANGE 


TO CHANGE THE LINE NUMBER(S) UNDER TEST, TYPE 
<CONTROL L>. PROGRAM WILL SUSPEND THE 

TEST IN PROGRESS AND RETURN TO THE INITIALIZATION 
STAGE OF THE SELECTED TEST. 


WHEN THE LINE NUMBER(S) HAS BEEN CHANGED 
PROGRAM WILL RESTART THE SELECTED TEST Berne THE NEW 


Ol 


SEQ 0010 








NOTE: 


6.9 
6.1 














POWER FAILURE 

IF_A POWER FAIL TRAP OCCURS DURING TEST EXECUTION 
THE PROGRAM WILL SAVE THE GENERAL REGISTERS OF THE 
PROCESSOR AND HALT. 


WHEN POWER UP OCCURS, THE PROGRAM WILL TYPE 
"POWER FAILURE-CURRENT TEST WILL BE RESTARTED”. 


THE PROGRAM WILL THEN RUSUME TEST EXECUTION. 


IF A TEST IS NOT IN PROGRESS, I.E., IF THE PROGRAM 
S WAITING FOR AN INPUT FROM THE TELETYPE KEYBOARD, 


I 

THE ERROR MESSAGE WILL “POWER FAILURE”. 

THE BRsoeal WILL THEN REGUEST Fhe SRERATOR TO SELECT A TEST. 

Ir MACHINE HAS A SOLID-STATE SWITCH REGISTER, THEN THE CONTENTS WILL BE 
LOST ON A POWER FAIL AND THEREFORE WILL HAVE TO BE RELOADED. 

ERRORS 

NORMAL OPERATION 

IF AN_ERROR OCCURS WITH ALL SWITCHES DOWN, THE PROGRAM 

WILL TYPE AN APPROPRIATE ERROR MESSAGE AND THEN 
RESUME TESTING. 

THERE ARE SEVERAL ERROR MESSAGE FORMATS, AND 

THE PARTICULAR MESSAGE TYPED DEPENDS UPON THE 
TEST IN PROGRESS. 

ERROR MESSAGES 

UNIQUE ERROR 

ONLY PC OF FAILING TEST IS OUTPUT TO TELEPRINTER 
AN EXAMPLE OF THIS TYPE OF ERROP IS: 


1. AN INTERRUPT OCCURED AT THE WRONG PRIORITY 
e. & REGISTER BIT WAS NOT CLEARED BY RESET 


SEQ 0011 













1.2 TRANSITION DETECTION EFROR 
THIS ERROR WILL OCCUR IN ONE OF THE ON-LINE TESTS 
IF AN EXPECTED INTERRUPT DOES NOT OCCUR 
AN UNEXPECTED INTERRUPT DOES OCSUR, ON tHe LINES 
UNDER TEST. 
FORMAT FOR ERROR TYPEOUT IS 


XXXXXX_TRANSITION ERROR 
EXP REC LINE 


SEQ 0012 











WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 
AA=EXPECTED INTERRUPT FLAGS fy hee TO 4 MSB OF CONTROL REGISTER 
BE=RECETVED INTERRUPT FLAGS (AS ABOVE) 
CC=LINE ON WHICH ERROR OCCURED 


6.1.1.3 SINGLE LINE STATUS ERROR 


THIS ERROR WILL OCCUR IN ANY TEST, OFF LINE OR ON-LINE 
+ gel J EXPECTED AND S&cEIVED LINE STATUS ARE NOT 












FORMAT FOR SINGLE LINE STATUS ERROR IS 

XXXX LINE ERROR 

EXP REC LINE 

RAR =6BBB OCC 

WHERE EEE OF CALL _TO ERROR ROUTINE 
ARA=EXPECTED LINE STATUS AT TIME OF ERROR 


BBB=RECEIVED LINE STATUS AT TIME OF ERROR 
CC=LINE ON WHICH ERROR CCCURED 





$.1.1.4 FATAL TRANSITION ERROR . SEQ CO13 | 


THTS ERROR WILL OCCUR _IN AN ON-LINE TEST IF AN INTERRUPT 
OCCURS ON A LINE NOT SELECTED FOR TESTING. 


FORMAT FOR FATAL ERROR TYPEOUT IS 


XXX¥XX FATAL ERROR 
CSTAT LSTAT 
AAARAA BBB 


WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 
ARAARA=RECEVICED CONTROL STATUS ON LINE THAT INTERRUPTED 
BSB=RECEIVED LINE STATUS ON LINE THAT INTERRUPTED 


6.1.1.4 CONTROL STATUS ERROR 


THIS ERROR WILL OCCUR IN A TEST THAT PRIMARILY 
INVOLVES THE LINE SCANNER 


FORMAT FOR CONTROL STATUS ERROR IS 
Y STATUS ERROR 
ARAAAR BB88BE 


WHERE XXXXXX=PC+2 OF CALL _TO ERROR ROUTINE 
ARAARA=EXPECTED CONTROL STATUS AT TIME OF ERROR 
BBBBBB=RECEIVEDCACTUAL) CONTROL STATUS AT TIME OF ERROR 


6.1.1.5 LINE STATUS ERROR 


THIS ERROR WILL OCCUR IN THOSE OFF LINE TESTS THAT 
SET ONE LINE TO A PARTICULAR STATE, AND THEN CHECK 
ALL OTHER LINES 


FORMAT FOR LINE STATUS ERROR IS 


XXXX LINE ERROR 
EXP REC LINE SEL 
RAR DDD CC DD 


WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 
ARA=EXPECTED LINE STATUS AT TIME OF ERROR 
BBB=RECEIVED LINE STATUS AT TIME OF ERROR 
CC=LINE ON WHICH ERROR OCCURED 
DD=THE LINE ON WHICH THE PROGRAM WAS OPERATING 


6.1.2 - REPEATED ERRORS 
IF THE SAME ERROR OCCURS REPEATEDLY IN A GIVEN TEST 


ONLY THE DATA RELATING TO THAT ERROR WILL BE TYPED 
IF THE ERROR OCCURS IN THE SAME TEST ON THE SAME PASS 
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SCOPE LOOPS 
SCOPE LOOPING APPLIES ONLY TO TEST GROUPS C AND 1 


mF TER ERROR HALT 


TQ L90F ON @ GIVEN TEST AFTER SN ERROR HALT, 

Ser S182 19 RUN KI THOUT STOPEING 

Bt Enius1 79 COOP EN CURRENT. Test 

SET SWid=] TO_SUBPRESS ERROR TYPEOUT 

SET Swid=0 (IF IT IS 1) 2 

Set SwOS=1 TE LOOP ON SAME DATA (IF REQUIRED) 

seeIF USING SOFTWARE SHITCH REGISTER END YOU WANT TO CHANGE 
ME SNITCH SETTING TYPE A <?G) SEFCRE CONTINUING, 


paces CHATINLE 

THE PROGRAM WILL LOOP ON THE SAME TEST. 
FROM PROGROM START 

PROCEED AS DESCRISED IN 4.2.1.1 TO 4.2.1.4 


WHEN THE PROGRAM TYPES “TEST-", SET SWI4=1 TO LOOP 
N THE TEST THAT WILL BE SELECTED. 


int IN THE NUMBER OF THE TEST THAT I5 TO BE LOCPED 
(SEE LISTING FOR TEST NUMBER REFERENCE DESIGNATIONS) 
LOOP ON THE SELECTED TEST UNTIL 


THE PROGRAM WILL 
cwl4=\C. 


AFTER «CONTROL> 


RESTRICTIONS 
FOR 1€ LINE SCANNER TEST 
HEEL TEST CONNECTOR MUST BE INSTALLED. 
FOR SINGLE LINE CABLE TEST 
312 TEST CONNECTOR MUST BE INSTALLED ON MODEM CABLE 


FOR ON LINE TESTS 
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WHEN ON RCT=12_ 08 “XOR™ 
PESGRAN WILL DEFAULT TO_16 LINE SCANNER TEST 
HSS1 TEST CONNECTOR MUST BE INSTALLED. 


DEFAULT PARAMETERS . INCLUDING PCT=-11 & “XOR™) 
VECTORS 


“UMVEC: 300 (AUTOMATICALLY GENERATED 
sails $e BY PROGRAM WHEN UNDER ACT=11 OR “XOR 


DHNCSR: 170 
DHMLSR: 170 


NOTE: ares Ta a AND VECTORS BECOMES 
OR “XOR™. 
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§.C EXECUTION. TIME 
8.1 16 LINE SCANNER TEST 


THE TIME FOR e. fet OF THE 1S LINE SCANNER TEST IS 
APPROXIMATELY 1.5 MINUTES. 


8.é SINCLE LINE CABLE TEST 
i TIME FOR 12 PASSES OF THE SINGLE LINE CABLE TEST 
S APPROXIMATELY 1 MINUTE. 
8.3 103A MODEM CONNECT-DISCONNECT TEST 
APPROXIMATELY 30 SECONDS WILL ELAPSE Fe TEN Ie 
TIME THAT THE ANSWERING DATA SET FIRST DETECTS A RING 


SIGNAL TO THE TIME THAT THE PROGRAM TYPES 
“SET SWOl=1 TO DISCONNECT". 


pea tll 3 x. SECONDS WILL ELAPSE SETWEEN mT IME 
THAT THE PROGRAM TYPES THE ABOVE MESSAGE UNTIL THE 
TIME THAT THE PROGRAN TYPES “103A TEST COMPLETE”. 


8.4 e02C MODEM CONNECT-DISCONNECT TEST 


Er ed .S MINUTES WILL ELAPSE BETWEEN THE TIME 
THAT THE & NSLERING DATS SET DETECTS THE FIRST RING SIGNAL 
TO THE TIME THAT THE PROGRAM TYPES SET SWOl=1 TO DISCONNECT”. 


RPPROXIMAT ELY 30 SECONDS WILL CLAPSE SETWEEN THE 
TIME THAT THE PROGRAM TYPES THE ASOVE MESSAGE UNTIL 
THE PROGRAM TYPES shee TEST COMPLETE”. 
| 
| 


PROGRAM DESCRIPTION 


THIS “a CONSISTS OF A SERIE 
ee © SET OF COMMON SERVIC 
i 


WHEN INITIALLY LOADED AND STARTED ...SWOO MUST SE SET =1, THE PROGRAM WILL 
BESIN A CIALOG WITH i OPERATOR TO INPUT THE PARAMETERS 
REGUIRED BY THE PROGRAM 


WHEN @LL INFORMATION HAS BEEN INPUTTED THE ppRogran WILL 

REGUEST THE OPERATOR TO SELECT é TEST By 

THe NUMBER OF THE TEST 70 BE R WHEN aL CORRECT TEST NUMBER 
IS RECEIVED. THE PROGRAM WILL BESIN EXECUTION OF THE 

SELECTED TEST. 


| 
AT ANY TIME DURING TEST EXECUTION, THE OPERATOR MAY 
' 


wo 
7 


1e3! ROUPS 
UTI 


2 ROUTINES GND A KEYBOARD 


HANGE A ig PARAMETER BY Y ENTERING THE APPROPRIATE 
COMMAND VIA THE TELETYPE KEYBOARD 





Me ae ae ee +e ee ee ee 


E0e 
CONT'D 


IF AN OFF LINE TEST HAS BEEN SELECTED, THAT TEST WILL 
BE REPEATED UNTIL THE OPERATOR INTERVENES. 


IF AN ON LINE TEST HAS BEEN SELECTED, THE OPERATOR IS 
REQUIRED TO TAKE ACTION EACH TIME THE TEST IS COMPLETED. 


AT THE ENO OF EVERY OFF LINE TEST PASS, THE PROGRAM 
WILL RING THE TELETYPE BELL. 


LL ENO OF AN ON LINE TEST, A TEST COMPLETE MESSAGE WILL SE 


ie] ret eNA 
. LISTING 


ue me en ee eee - ee 


(ey 


SES 0017 


IMO GIT 0.000 IO UE. GT C9000 © 0 U0 ate 


LOLILILIGIGITUTUPOPUTUPUTU LU TUT Lb & «0 6 = bo 
LEGIT (3.000 > 


CROTON OO et 
4-Corue 


pep ah 271732) 


100009 


000100 
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FO0e 





SEG 0018 









TITLE DZDHK-C 

" ENABLE RBS AMA 

MODEM CONTROL DIAGNOSTIC 

: OEFRIGHT 971, 1972. 1976, DIGITAL EQUIPMENT CORP. MAYNARD MASS. 01754 

: THIS PROGRAM AaNTAING 7 TEST 0 OF T HE NODEN CONTROL IN 
THE OFF LINE MODE OF OPERATION ONL 

SMOBIFIED BY ED CROWLEY APRIL, 197 ¢ \ 
MODIFIED 8Y S. CARPENTER JULY, 1976 TC SUPPORT THE SOFTWARE SWITCH REGISTER. 

"ALSO, SUPPORTS THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGIS*ER. 


;SWITCH REGISTER OPTIONS 


;SW1S=1, HALT ON ERROR 
:SHI4=1, LOOP ON CURRENT TEST 

:SHI3=1, SUPPRESS ERROR TYPEQUT 3 ms 
:SULZ=1, SUPPRESS TRACE TRAPPING(THIS IS INOPERATIVE IN THIS RELEASE) 
:SUII=1, SUPPRESS TERA 

SaUlOs1’ ESCAPE TQ-NEXT TEST ON ERROR 

;SWO9=1; FREEZE DATA 

;SWOi=1; START DISCONNECT SEQUENCE 

:SHOO=1, RESELECT VECTOR AND CONTROL REGISTER ADDRESS 


;AFTER PROGRAM RESTA 


;STARTING ADDRESS FOR ALL TESTS IS 000200 
RESTART ADDRESS=000200 


; TESTS AVAILABLE 

iOFe LINE TESTS USING H86: TEST CONNECTOR-FIRST TEST=0 
aE pe TESTS USING DC11 TEST CONNECTOR AND MODEM CASLE-FIRST TEST=100 
coined Disconnect TEST FOR BELL 103A MODEMS-FIRST TEST=200 
 CONNECT/DISCONNECT Test FOR SELL 202C MODEMS-FIRST TEST=30 

;SYMBOL DEFINITIONS 


pe 190000 











0 


Su0e=100 
~NLIST MC,MD,CND 
LIST MM 






GOe 





SEQ 0019 
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DZDHKC 


5S. 
56 :REGISTER DEFINITIONS 

be 

5 epee iste 

56 69000 Ro=%, RENE RaC RECT ETEE 

él 900003 R3=%3 GENERAL REGI 

= 990054 Rae" :GENEREL RE REGISTER 
: =% 

gy SoRSRE at BE TEESE Of OR PGI STER POINTER 

5S 090067 Pe=x? PROGRAM COUNTER 

5c sLOCATION EQUIVALENCIES 

gs 177776 PS=177776 sPROCESSOR STATUS WORD 

76 EQUIV PS. PSW 

7} 015430 RADIX=DIVIS ;CONVERSION FACTOR FOR DECIMAL QUTPUT 

73 615424 BINWRD=DIVIDL  ;WORD TO BE CONVERTED TO OCTAL ASCII 

73 015436 DIGIT=DIVIDH  :ASCII OCTAL DIGIT 

i CONTROL STATUS REGISTER BIT FUNCTIONS 

7 poo020 BusY=20 :LINE SCANNER RUNNING 

7g 000040 SCNENA= LINE SCANNER ENABLE 

79 090100 INTENAZ100 HINTERRUPT ENABLE 

af 009209 CONE=200 :SCANNER DONE 

8} 990499 STEP=400 ;CAUSES LINE COUNTER TO BE INCREMENTED ay 1 COUNT 
g3 001000 MAINT=1000 !FORCES 1S TO INPUT OF SCRATCH H PAD MEMOR 

83 902000 CLRMUX=2000 :CLEAR MULTIPLEXER FUNC TON FLIPEL OPS 

34 004900 wel. ELRSCN=4000 :CLEARS SCANNER SCRATCHPAD MEMORY 

gs 910000 : SECRXF=10900 ; SECONDARY RECEIVE TRANSITION WAS DETECTED BY Seaver 
SE 029000 CSF =20000 CLEAR TO SEND TRANSITION WAS DETECTED By SCAN 
? 040909 COF=40000 CARRIER TRANSITION WAS DETECTED BY SCANNER 
$¢ 100030 RINGF=100000 #§ :RING SIGNAL WAS DETECTED BY SCANNER 

| 

x sLINE REGISTER BIT FUNCTIONS 

93 900001 LINENA=| :=1, RECOGNIZE TRANSITIONS ON THIS LINE 

$3 elulalelar- RMRDY=2 t='' SEND TERMINAL READY TO MODEM 

65 990604 ; Reed tsi. SEN REQUEST TO SEND TO MODEM 

Qc 200010 _ SECTX=10 ‘21. SEND SECONDARY TRANSMIT TO MODEM 

56 909020 '  -SECRX=20 - 2]! SECONDA RY RECEIVE TURNED ON BY MODEM | 
97 900040 CS=40 -31' CLEAR TO SEND TURNED ON BY MODEM 

ge 909100 €0=100 :=]’ CORR TER TURNED ON SY MODEM 

2 909200 RING=200 t=1’ RING TURNED ON BY MODEM 

ich SOFTWARE TRANSITION FLAGS 

103 po0004 XCO= s CARRIER TRANSITION WAS DETECTED 


;CLE D E 
105 po000! XSCRX=1 ; SECONDARY BECELVE TRANSITION WAS DETECTED 








DIDHK-C_MACY 
DZOHKC.P 11 


sd 
std 


oO 
U1 £ GIT OOD IMULE Gur ww ~ 


TUTUTUTUTU UH 6 — 0 + pe 


0+ b+ 0 b+ b+ bb b= b+ = B22 B* bo 0 Be 0 + Bo sb 2 0 be eo be oe = po 
BR VUuN 
~(2000~) 


WIWIGIGIGIG 
—-OWOONMU£C 


’ 
a 





l 


"9 
rae 





32) 


pezezt 


194000 
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HO02 


; INSTRUCTION DEFINITIONS 


SO ee 
POP1SP=S726 


POPeSP=2e626 


;DECREMENT PROCESSOR STACK 1 WORD 
IVE RE ON ¢ a SiACK 1 WORD 


STAC 
;RESTORE RO FROM STACK 
;DECREMENT STACK TWICE 
INCREMENT STACK TWICE 





;EMT DEFINITION TABLE 


ERRORC=EMT+X 


KBDIN=EMT+X 


:CONTROL STATUS EFEROB SERVICE 
"LINE STATUS ERRO 
; SCOF — LOOP AND TERAT ION: SERVICE 
A FREEZE SERVICE 
TELETYPE gu TeUT 
AVE RO-RS, PC+2 OF CAL 
: CONVERT Data. TO ASCII aN TYPE 
: RESTORE = 
FASCIT CONVERSION ROUTINE 
sD1G1T EXTRACTION ROUTINE 
: TYPE PC OF FA ILING TESTS ONLY 


sNE TEST 
creck FOR RING ON CORRERT LINE 
bP ee ANSITIONS 


30 

: CHANGE SWR QUTINE 

;CH=CK FOR INTERRUPTS-FLAG STYLE 
: FAKE pons seid POINT 


SEG 0020 


q 
8 
| 
| 


i ns a en ee ee 


DZOMK-C Aw Yll 27.732) 
ZDHKC.P 


184 000000 


102 
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* :TRAPCATCAER FOR ILLEGAL INTERRUPTS 
"REPT 200 


HALT 
. ENDR 


a en = = a ee re = 


Da ny 


_ SEQ 0021 


i 


- 


DIDHK-C_MACY11 
ZOHKE P11 


3 

f 

1 

5 ooo0e 
p00d26 

S 900030 

6 00032 

é 

: 

3 000046 


000060 
000062 
099174 
900176 


fo UEP une torD 


000200 


GJtur-Ow 


271732) 


00024 
tse 
09034 
014120 
000340 
000046 
014102 


000060 
003760 


009200 
000137 





17-MAY-7& 13:35 PAGE S 


901100 


224 
PFAIL sPOWER FAIL HANDLER 
340 SSERVICE AT LEV 
EMTSRV !EMT DISPATCH SERVICE 
340 “SERVICE AT LEVEL ? 
~=46 ° 
LOGICAL SACTIL? 
.=60 
KBDINT ;KEYBOARD MONITOR 
yO ‘SERVICE AT LEVEL 7 
a DISPREG: 0 
SWREG: 0 
.=200 
IMP START :G0 TO START OF PRJGRAM 











J0e2 


SEG 0022 


;STANDARD INTERRUPT VECTORS 





DZDHK-C Yeahs 27( 732) 


DZOHKC.P11 


BEB Raotoly 4 


1 
1 
1: 
1 
1? 
i 
1 


i 
183 
184 
18S 
186 
187 


rurururururururulury 
bh 
Sint NOU1£ OTe 


001100 
012737 
005037 
005077 
012706 


013746 


012737 
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016176 


001756 
01S47e 
001100 


177777 


000176 
001eSe 


000004 


001lete 


005004 
016710 


000001 
001252 
oo004e 
016320 


o0004e 
000176 


000001 


001190 
000300 


000024 


000004 
0154Se 


016620 
016622 


015402 


00G004 


016710 


016620 


015246 


014026 


START: MOV #PFAIL, 24 


CLR TIPFLG 
CLR aTKCSR 
MOV #STACK, SP 


SUSWR: MOV d#6,-(SP) 
MOV ae4: -(SP) 


MOV #64$ at 
CMP #-1,aSW 
BEQ S$ 

BR 


66$ 
64S: CMP (SP)+, (SP)+ 


6S$: MOV 
6S: MOV (SP)+ +3 ae4 


CLR 


#SWREG, SWR 
MOV aDISPREG DISPLAY 


(SP)+' aa6 
MOV alten, OTKCSR 





;SET_UP POWER FAIL 
: INTERRUPT SERVICE VECTOR 
CLEAR TEST IN PROGRESS FLAG 


;SET UP STACK POINTER 
;SAVE VECTORS 


;SET UP FOR TIMEOUT 


REFERENCE HARDWARE SWITCH REGISTER 


;ADJUST_STACK 

:POINT TQ SOFTWARE ae REG 
:POINT TO SOFT DISPLAY REG 
RESTORE VECTORS 


;ENABLE TELETYPE INTERRUPTS 


 AeenenesteneeenesssssteleereneeeanenseneeEEEHEneazanensaaents 
REPLACE THE FOLLOWING BRANCH WITH A "NOP" (240) TO ACTIVATE “XOR™ CODE 
TD SIP aOR SE 


NF] ew Q 
MOV 4,-(SP) ;SAVE 4 
#XORSV 


SKIP XOR STUFF 


UP_SVC ROUTINE 


ET 
TST 177060 ;GOT AN XOR TESTER OUT THERE ? 


MOV XORSVC, 
MOV (SP)+,4 :Y 
COM XFLAG’ :XOR = 
ISR PC. XOR 
JMP STARTO 
XFLAG: O 
XORSVC: POP2SP 
MOY 
STARTO: TST 
BNE +14 
TYPE 
MTITLE 
MOV #1, TIFLG 
TST XFLAG 
BMI VECSTR 
TST 4d 
BEQ STARTI 
ISR Pc, XOR 
BR VECSTR 
STARTI: TST aed2 
BNE 1$ 
CMP #SWREG, SWR 
BNE z 
CNTLUU 
13: BIT. a aSUR 
BEQ START 


VECSTR: MOV aSTACK SP 





(SP)+,4 ;RESTORE 4 
TIFLG 


8300, DATAL 


WTRUTO VECTOR 
;RESTORE TRAPCATCHER 
;XOR FLAG 


s TYPED TITLE? 
: TYPE "MODEM CONTROL DIAGNOSTIC” 


ra TITLE TYPED FLAG 
_ RESTORE TRAPCATCHER 


;NO 
:;YES AUTO VECTOR 


;GET VECTOR ae REGISTER ADDRESS 
UNDER MONITO 


;USING SWREG? 


;1F " BIT O=1, ON PROGRAM RESTART 


INPUT VECTOR AND REGISTER ADDRESSES 
POINTER 


eer UP PROCESSOR STACK 
ADDRESS OF FIRST FLOATING VECTOR 








Repte ne MACY11 2 
DZDHKC.P11 


230 901366 
535 Sbidag 


e34 9914S 


268 00157e 


271732) 


12737 
08077 


262737 


17 
016712 


LOe2 
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— 

12432 
fareray 
qgrage 
914c2s 
o01252 
cg0042 


009003 
001460 


000007 
001526 


00000e 


014030 
212424 


014026 
014030 
001000 


016604 


016606 
016606 


VECSTA: 


1$: 


VECSTI: 


1$: 


REGST1: 


40¥ #302, DATA2 
Mov pare aDATAL 
C 2 


ADD #4, DATAL 


CMP DATAL, #1000 
BNE VECSTA 
TST XFLAG 
BMI TSTGO 
TST 42 
BNE TSTGO 
INSTRG 
MVECTOR 
300 

774 
DHMVEC 

IT #3, DHMVEC 
BEQ VECST1 


MOV #1$, (SP) 


INSTER 
MOV DHMVEC, DHMLVL 
#2, OHM VL 


#7, DHMCSR 

REGSTI 

MOV #1$, (SP) 
INSTER 

MOV DHMCSR, DHMLS& 

a #2, DHMLSR 


C 
177777 
LINSEL 





;RADDRESS OF STATUS WORD 


eae PaTO8 He OF STATUS WORD TO VECTOR 


Bt ON TLLEGAL INTERRUPT } 


iN 
;NEX 
ite TABLE CL ARE 
;1F NOT, CONTINU 


:TE 

:IF O, 

s INCORRECT ADDRESS, TRY AGAIN 
E ADDRESS OF 


US WORD 
GET ADDRESS OF CONTROL REGISTER 
AGE “REGISTER ADDRESS-” 

SLOWER ae FOR ADDRESS 
‘UPPER LIMIT FOR ADDRESS 
;STORAGE FOR ADDRESS 
IF 3 LSB ARE NOT O 


; INCORRECT ADDRESS, TRY AGAIN 


:SET UP ADDRESS OF LINE STATUS REGISTER 
;GET LINE SELECT PARAMETER 


















SEQ 0024 








' 
| 
| 


DZDHK-C_MACY11 271732) 
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001574 


0 
001756 


a 





001106 


020426 
C20406 
C16664 


0016le 
016026 
177700 


016632 


009340 


Ol6626 


016630 


000001 
014334 
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O16665 
016684 


016632 
O1666E 


002204 


001756 





M02 


#STACK, SP 


TSTNO,RS 
#177077,RS 


RRO CRS) TSTMAX 
TSTLST(RS) , TSTPNT 
TSTPNT 


STRTOA 
#X1A, (SP) 
NSTER 


S 
#177700, TSTNO 
TSTNO, TSTMAX 
TSTGO 
X1B 
#340, -(SP) 
#OMYRTI,KRET 
LINFLG 
TRACON 
PASCNT 


#1, TIPFLG 
TSTENT 


;SET UP PROCESSOR STACK 
GET TEST NUM ER 

;MESSAGE “TES 

LOWER LIMIT FOR TEST NUMBER 
;UPPER LIMIT FOR yu NUMBER 
; E TEST NUMBER 


ST R 
EXTRACT TEST GROUP NUMBER 


;GET HIGHEST TEST IN GROUP 
:GET POINTER TO TEST TABLE 
F 0, INVALID TEST GROUP 


Y AGAIN 
ey NUMBER OF FIRST TEST 


:TO BE EXECUTED Be ee GROUP 


:1S NUMBER TOO LAR 
;SET UP PRIORITY LEVEL 
;SET UP DUMMY 1a A aa 


He 
:CLEAR PASS COUNT 


;SET TEST IN PROGRESS FLAG 
;START TESTING 















DZDHK- a‘p MACYL1 27732) 
DZDHKC.P11 


By bbsos? 
70 


311 90 


GIGIGIGIGIWIGGLG 
TU op b= ob bo 
MONDO IM UIE Wr 
~ 
Oo 
<£ 
2 


000002 


000000 
3S2 O0ee0& 000000 
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Bieees 
poo0e3 


0145Se 


ocode6 


014520 


000014 


O0e202 
014456 


000042 
000176 
000097 


000001 
000001 


015254 


015254 


015254 


002204 


C16620 
015254 


O02206 
001756 


KBDINT: 


KBDINI: 


KBDINe: 


KBDIN3: 


1$: 


DMYRTI: 
. EVEN 


KRET: 
SINTFL: 


N02. 





SEQ 0026 


; TELETYPE KEYBOARD INTERRUPT SERVICE ROUTINE 


TIPFLG 

TMP 1 

SINTFL 
JTKDBR, TMP 1 
#200, TMP! 


0 
#3, TMP 
KBDINI 


JDHMCSR 
aTKCSR 
STARTN 
#26, TMP) 
KBDINe 


le 
aTK 


#DMYRTI ,KRET 
DMYRTI 


@DHMCSR 


1$ 

#SWREG, SWR 
#7, TMPL 
13 


#1,SINTFL 
#1; TIPFLG 


;CLEAR TEST IN PROGRESS FLAG 
;CLEAR SOFTWARE INTERRUPT FLAG 
;1F_<CNTROL C> WAS TYPED 

;TYPE "tC" AND ; 

;SELECT NEW TEST 


pe ty AN YO Ne TYPED 
VECTOR AND REGISTER RODRESS 


s1F <CONTROL L> WAS TYPED 
;TYPE “tL” AND GET NEW 

;LINE NUMBERS. UN ue. 

:TEST GROUP O'WAS IN PROGRESS 

IF <CONTROL L> WAS TYPED IN TEST 
‘GROUP O, IGNORE 


;IS IT <t@ 


;SET SOFTWARE INTERRUPT FLAG 
:SET TEST IN PROGRESS FLAG 





BO3 
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VeettAy Pll 





Fi HP Gg Feo CHECK = PERFORMED ONLY AT PROGRAM START 





362 
355 :VERIFY THOT CONTROL STATUS REGISTER AND LINE STAT 
355 TREGISTER WERE CLEARED BY INITIALIZE big 
38. 902210 | TO: sREFERENCE DESIGNATION 
= zeseid yee TYPE “T YPE “iS LINE SCAINER TEST” 
360 S0s8i9 SOs7F7 014364 mnt: | 187 C | 
seo UES GUST TT OINa ‘IT: 31 BDHIICSR sTEST CONTROL STATUS REGISTER 
362 352222 154012 RROR sCONTROL STATUS NOT CLEARED, ERROR 
323 BSssa4 OosTo> ol4ase ist SUHIY ‘TEST | atus EcTETES 
35 mes sei} ae aaa ;TEST LINE STATUS SEGISTES 
se wwes oi Py we & 0 T 
355 COne3$ | 1DND03 SCOPE eK FOR LO et 
35S SVERIFy THAT “INTERRUPT ENABLE” CAN 
353 :SET AND CLEARED. oR 
37 002236 Lit Tl: : REFERENCE DESIGNATION 
372 D0ee36 912777 900100 014340 CSTRI: Mov #INTENA, IDHMCSR :SET INTERRUPT ENABLE 
sos Bee Geer? SOLO oi4338 BIT BINTENA, JOHMCSR : WAS INTERELPT ENASLE SET 
Soc Bosses [edocs i “NO 
| 378 302256 O4er?F ooc100 914320 SIC = @NTENA, IDHMCSR sa kak ENTERRUPT ENABLE 
| 3 sces83 Serr" 660158 914312 eit BINTENA, SCHEER WAS ae AATEReY ENSerE ELE RED 
| 379 seers 104012 ERROR :NO 
| 380 Stee? 1 ode SCOPE eck FoR ITERATIONS, LOOP 
| #22 sVERIFY THAT “DONE” CAN BE SET AND CLEARED 
| 3684 ogo2209 Te: c ESIGNATIO 
| 385 00300 012777 900200 14276 CSTRE: MOV BDONE, IDHMCSR s REFERENCE eamasectles 
soEs0 Se777 669365 014375 BIT SDONE * SCHMCSR WAS DONE SET 
| g82 Bhesis 001001 BNE “~ 
a SI> DONE, SOHMCSR iClear 
| 339 sseset ose777 000259 934250 git aDONE. SOHMCER uAS ROME E EARED 
| HE Bize To40r8 FEfoR RROR 
| 3: c02340 104002 SCOPE inte FOR ITERATIONS, LOOP 
| 3 :VERIFY “MAINTENANCE MODE” CAN BE SET AND CLEASED 
| 397 ooes4e 13: F 0 
| HS SCENE 012777 901000 o14224 CSTRS: Mov SAINT, JDHMCSR SET Cae TNTENGRCS none 2 
| 398 S65355 O3e777 081569 1422 eit BMAINT; SDHMCSR “WAS MAINTENANCE SBE T 
«BS Besse “ties BNE : aes 
| 0] 993360 jO40! ERROR 
| 483 bseses 52777 ocio00 914214 BIC SMAINT, TOHMCSR Me aR SS INTENS NCE MODE 
. * => ~ °CL mt. 
| ER Reged Saerc? OS100C El 4ets git gn Ree SHAS MAINTENANCE MODE CLEARED 
uD BEESOR 1D4cze FREOR NO, ERROR 
sti S0i402 10403 SCOPE :CHECK FOR ITERATIONS, LOOP 





ee a ere ee ee 


ee mee ee ee ee 


DSOHK=C ois ua aris 
DSDNA. Pll 


4? 
408 
409 
419 goz4o4 
4ii 802404 o12777 
4l2 008412 o32777 
413 602420 00100 
415 902422 104012 
416 O0s4s4 o4e7Tt 
41? 5Ogs32 032777 
41g S5E440 21401 
mrs 
420 oop442 104012 
42] 352445 104002 
“Ez 
ES 
435 
435 
428 02446 
4e7 05448 «(012777 
428 002454 922777 
425 Ode462 00100! 
430 02464 104012 
43: O02465 04277 
432 502474 03377 
$33 302502 001401 
“3 302505 14c12 
435 30zSie 154032 
43 
437 
38 
438 
| 440 902510 
441 902519 052737 
| 48 008516 o0s077 
| 443 «902522 912777 
444 002530 613777 
| $55 002536 
| 446 902544 «042737 
} 4? 60552 00240 
sue 502554 oe 
445 O0255e 922626 
456 552565 104C12 
“El S5zSe2 “OM002 


t?-MAY-76 


09049 
000040 


0040 
O04) 


0 
'B) 
~ 


o 
0 


SO0242 
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CO3 


; VERIFY THAT “SCAN ENABLE” CAN BE SET AND CLEARED. 
ye at ane tA tle ON 
ENASLE 


MOV sSCNENA, JOHMCSR “SET SCAN 

BIT B@SCNENA, JOHMCSR -WAS SCAN ENABLE SET 
SNE .+4 

ERROR 


NO, ERROR 
“CLEAR SCAN ENASLE 


Sic BSCNENA, JDHMCSR ) 
ZWAS SCAN ENABLE CLEARED 


BIT 8SCNENA. JOHMCSR 
SEQ .+4 

ERROR 
SCOPE ‘ntece FOR ITERATIONS, LOOP 


;VERIFY THAT “BUSY” IS SET WHEN “SCAN ENABLE” IS SET 
;VERIFY THAT “BUSY” IS CLEARED WHEN “SCAN ENABLE” IS CLEARED 


ee DESIGNATION 
ENABLE 


: MOV #SCNENA, SOHMCSR :SET SCAN 
8! wr wee SOHMCSR -IS BUSY BIT SET 
ERROR Kit BUSY NQT ast ERROR 
Ic #SCNENA SOHNCSR 3 CLEAR N ENABLE 
git acs, SOHMCSE :IS BUSY “ar CLEARED 
ERROR :BUSY NOT CLEARED, ERROR 
SCOPE ;CHECK FOR LOOP, ITERATIONS 


;VERIFY THAT SETTING 


"DONE" DOES NOT CCAUSE AN 
LINTERRUPT IF “INTERRUPT ENAE 


NABLE™ IS CLEARED. 


: REFERENCE DESIGNATION 
BIS #340, 2S :LOCK OUT INTERRUPTS 

CLR HMtsR :CLEQR CONTROL REGISTER és 
MOV SINTIA, SOHMVEC :SET UP INTERRUPT SERVICE ADDRESS 
MOV PS QOHMLVL 3ST UP INTERRUPT PRIORITY 

BIS ab OhE JOHMCSR :5ET DONE 

8c 83490,°S :ALLOW INTERRUPTS 

NOP :DELAY FOR INTERRUPT 

OR INTE SNO_INTERRUPT, CONTINUE 

Pop2se RESTORE STACK, INTERRUPT 

ERROR i eSRED a ERR) 

SCOPE CHECK FAR LOOP, ITERATIONS 











DSOHK=C_MACYLI 2° 
DIOHKE P12 


renee SE SS 
frit Phe 


002564 


L7-MAY-76 


900340 
014008 
o32632 


600100 
000340 


000340 


012664 


912650 


fr@mnoo 
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; VERIFY THAT NO INTERRUPT OCCURS WITH "INTERRUPT ENABLE” 
SET AND “DONE” CLEARED. 


; REFERENCE DESIGNATION 


BIS #340, PS sLOCK OUT INTERRUPTS 
CLR JDHMESR CLEAR CONTROL REGISTER ane 
MOV BINTEA ADHIVEC SET UP INTERRUPT SERVICE ADDRESS 
MOV 30H :SET U pENTERRUET SERVICE LEVEL 
BIS RINTENA, SOHMCSR {327 INTERRUPT. ENABLE 

BIC #340, PS SALLOW INTERRUP 

NOP DELAY FOR INTERRUPTS 

Se INT2S INO INTERRUPT, CONTINUE 

POP2SP ;RESTORE STACK 

ERROR SINTERRUPT OCCURED, ERROR 

SCOPE :CHECK FOR ITERATIONS, LOOP 


;VERIFY THAT SETTING “DONE” CAUSES AN INTERRUPT 
WITH “INTERRUPT ENASLE™ SET 


;REFERENCE DESIGNATION 


BIS #349, PS -LOCK OUT INTERRUPTS 
CLR  . SDHMESR : CLEAR acute OL RES ISTER 

MOV 8INT3A, JOHMVEC ;SET UP INTERRUPT SERVICE ADDRES 
MOV SINTENA. SDHMCER ;SET “INTERRUPT ENABLE* 

MOV PS 2DHMLVL : SET “INTERRUPT peVEL” 

BIC 7 ;ALLOW INTERRU 

IS #DONE , JDHMCSR -SE NE“ 

NOP :DELAY FOR INTERRUPT 

CLR JOHMCSR 

ERROR : INTERRUPT OCCURED, ERROR 

BR . - INT3B : FONT INUE _ 

POPp2sSP tATeRASeT OCCURED, RESTOR STACK 
SCOPE SCHECK FOR ITERATION, LOOP 


;VERIFY THAT NO INTERRUPT OCCURS WITH 
"INTERRUPT ENABLE” SET AND “DONE” SET AT PRIORITY 7 


j REFERENCE ett 


CLR JOHMCSR CLEAR CONTROL REGISTER 
BIC #340,PS SET PROS CESSOR PRIORITY 

BIS #340'P5 :T0 LEV ae oe 
MOY aINTaa SOHMVEC :SET UP INTERRUPT SERVICE ADDRESS 
MOV :SET UP_INTERRUPT SERVICE LEVEL 
MOV uf a SBHNC os :3e7 INTERRUPT ENABLE 

BIS ONE, aDHMCSR ‘GENERATE INTERRUPT 

Noe :DELAY FOR INTERRUPT 

CLR JDHMCSR 

BR INT4B :NO INTERRUPT . CONTINUE 

PopesP sRESTORE STACK 

ERR : INTERRUPT OCCURED, ERROR 

EEE PE :CHECK FOR ITERATION, RoR 





Bs 


UNTUTUTUTUT UU UTU UU 
OWO NICU OTuU--O0Gd- 


USUI» -+ > & <0 6+ bb ob 
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003C20 





013560 


000200 


013S04 


013414 


013324 
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sVERIFY THAT_NO INTERRUPT OCCURS WITH 
"INTERRUPT ENABLE” SET AND “DONE” SET AT PRIORITY &. 


;REFERENCE DESIGNATION 


CLR JDHMCSR ‘CLEAR CONTROL REGISTER 

Sic #340, FS s9ET PROCESSOR PRIORITY 

BIS #300; PS :TO LEVEL 6. 

MOV #INTSO ODHIVEC ‘SET UP INTERRUPT SERVICE ADDRESS 
MOV PS, aDH :SET UP INTERRUPT SERVICE LEVEL 
MOV BIRTENA, SBHMNCSR :SET INTERRUPT ENABLE 

BIS #DONE, JOHMCSR : GENERATE INTERRUPT 

NOP :DELAY FOR INTERRUPT 

CLR JDKMCSR 

3R INTSB :NO INTERRUPT, CONTINUE 

POp2sp “RESTORE STACK 

ERROR : INTERRUPT OCCURED, ERROR 

SCOPE :CHECK FOR ITERATION, LOOP 


;VERIFY THAT NO INTERRUPT OCCURS WITH 
"INTERRUPT ENABLE” SET AND “DONE” SET AT PRIORITY S. 


;REFERENCE DESIGNATION 


CLR aDHMCSR :CLEAR CONTROL REGISTER 
BIC #340,PS :SET PROCESSOR PRIORITY 

is #240’ PS TO LEVEL 5. 

MOV BINTER SDHNVEC :SET UP INTERRUPT SERVICE ADORESS 
MOV :SET UP INTERRUPT SERVICE LEVEL 
MOV PTATENAS SBEMCSR :SET INTERRUPT ENABLE 

BI #DONE, SOHMCSR ;GENERATE INTERRUPT 

NOP :DELAY FOR INTERRUPT 

CLR 2DHMCSR 

BR INTES :NO INTERRUPT CONTINUE 

Popesp RESTORE STACK 

RRO S INTERRUPT OCCURED, ERROR 

SCOPE CHECK FOR ITERATION, LOOP 


;WERIFY THAT NO INTERRUPT OCCURS WITH 
"INTERRUPT ENABLE” SET QND “DONE” SET AT PRIORITY 4. 


;REFERENCE DESIGNATION 


R QOHMCSR :CLEAR CONTROL REGISTER 
te S340 Be tee PROCESO BRPARITS 
BIS #200.P5 :TO LEVEL 
MOV BINT?R, SDHMVEC SET-UP INTERRUPT SERVIC ADDRESS 
MOV PS :SET UP INTERRUPT SERVICE LEVEL 
MOV SHATENAT SBHMCSR :SET INTERRUPT ENABLE 
BI #DONE, DOHMCSR i SENERATE INTERRUPT 
NOP DELAY FOR INTERRUPT 
CLR JOHMCSR 
BR INT7B :NO INTERRUPT CONTINUE 
PopesP "RESTORE STACK 
ERROR : INTERRUPT OCCURED, ERROR 
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S63 003266 104002 INT7B: SCOPE ;CHECK FOR ITERATION, LOOP 


re ee ee 
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013236 


013150 


013062 


177 


776 
013270 


177776 
013254 
O13e46 


177776 
013114 


GO3 


;VERIFY THAT AN INTERRUPT OCCURS WITH “INTERRUPT 
;ENABLE” SET AND “DONE” SET AT PRIORITY OQ. 


T15: REFERENCE DESIGNATION 
INTLO: CLR JDHMCSR :CLEAR CONTROL REGISTER 
BIC #340. PS ZALLOW INTERRUPTS 
MOV sINTIOR, QOHMVEC :SET UP INTERRUPT SERVICE ADDRESS 
CLR apHt :SET UP INTERRUPT SERVICE PRIORITY 
BIS : SET BROCESEOR PRIORITY TO LEVEL OQ. 
MOV i FS JOHMCSR SET INTERRUPT ENA : 
31S #DONE, 2DHMCSR :GENERATE INTERRUPT 
NOP ‘WAIT FOR INTERRUPT 
CLR 2DHMCSR 
ERROR 2H INTERRUPT, ERROR 
R INTLOB NTINUE 
INTIOA: POP2SP INTERRUPT OCCURED RESTORE STACK 
INTLOB: SCOPE CHECK FOR INTERATIONS, LOOP. 
;VERIFY THAT AN INTERRUPT OCCURS WITH SINTERRUPT 
SENABLE” SET AND “DONE” SET AT PRIORITY 
The: ; REFERENCE Rie eee ON 
INTil cu SDHICER LEAR CONT - REG] TER 
MOV a NTLAA, QDHMVEC a oy iF RRUPT SERVICE ADOR 
eR abi, at eT TET SERV Ice FRLoRYty 
BIS ie ProcEsSoR PR PRIOR TY TO LEVEL 1. 
MOV HOPS QDHMCSR T INTE 
BIS #DONE, JOHMCSR : GENERATE INTERHUP 
NOP “WAIT FOR INTERRUPT 
CLR JODHMCSR 
ERROR ;NO INTERRUPT, ERROR 
R INTLIB NTINU 
INTLIA: POF2SP ! INTERRU T OCCURED, RESTORE STACK 
INT118: SCOPE :CHECK FOR INTERATIONS, LOOP. 
;VERIFY THAT AN INT RRUP 1.9 CURE WITH “INTERRUPT 
ENABLE” SET AND “D Ne* SE RIORITY 2. 
T1?: ;REFERENCE DESIGNATION 
INTLE: cue JOHMCSR CLEAR CONTROL | REGISTER 
C #340. PS ALLOW 
MOV siNtl2A, BOHMVEC ser UP UP INTERRUPT ERVICE ara, 
CLR 0H TERRUPT SERVICE PRIORITY 
BIS aTO0, BS SET PROCESSOR PRIORITY TO LEVEL 2. 
MOV SINT NA, JDHMCSR SET INTERRUPT ENABLE 
BIS #DONE, JOHMCSR : GENERAT SNTER uP 
NOP ’ WAIT FOR INTERRUPT 
CLR JDHMCSR 
ERROR :NO INTERRUPT, ERROR 
R INT122 : CONT INUE 
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620 003526 d2ee 
i 3930 10400 


Sei O0 


HO3 


fe 


SEG 0033 


; INTERRUPT Oe SURED RESTORE STACK 


;CHECK FOR 


NTERATIONS, LOOP. 


ee 
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013012 
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012774 
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;VERIFY THAT AN INTERRUPT OCCURS WITH “INTERRUPT 
;ENABLE” SET AND “DONE” SET AT PRIORITY 3. 


Te0: 
INT13: CLR 


INTI3A: POPESP 
INTI3B: SCOPE 


QDHICSR 
8 

SINTL OB, ADHMVEC 
JOHML VL 

#140. PS 

#INTENA, JDHMCSR 
#DONE, JDHMCSR 


aDHNCSR 
INT138 


;REFERENC= DESIGNATION 
;CLEAR CONTROL REGISTER 


st TN TERRY 

;SET UP INTERRUPT SERVICE ADDRESS 
;SET UP INTERRUPT SERVICE PRIORITY 
;SET PROCESSOR PRIORITY TO LEVEL 3. 
;SET_INTERRUPT ENABLE 

;GENERATE INTERRUPT 

;WAIT FOR INTERRUPT 


NO INTERRUPT, ERROR 


sCONTI 
: INTERRUPT OCCURED, RESTORE STACK 
:CHECK FOR INTERATIONS, LOOP. 
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DIDHK=C_MACYL1 27(732) 17-MAY-7& 13:35 PAGE 18 SEG C035 
DZDHKC.P11 


g42 : VERIFY THAT ALL LINE NUMBERS CAN BE WRITTEN INTO AND 
Pay :READ BACK FROM LINE COUNTER 
ue 903620 Tel: ;REFERENCE DESIGNATION 
* cOs077 12760 we LINTL: CLR SDHNCSR hey CONTROL STATIS REGISTER 
? ? 7777 : 
648 BpSe se B75532 at iitest MOV He Bef cK ‘i = Frat ERR bet? T MASK 
$438 093640 005005 CLR LEAR EXPECTE LINE NUMBER 
650 90364 912700 oo0020 MOV PTO TEST 16 LIN Ne NUMBERS 
651 003646 033737 O18714 016712 LINTIA: BIT Het LINSEL ‘FAs UP INE SELECT feb? 
652 003654 901407 BEQ :BR IF NOT 
653 003656 010577 012722 MOV RS TEE CSR :SET LINE NUMBER 
654 O03662 O:7704 Ole7ie MOV DOHMCSR, RY :READ BACK LINE Ni 
655 003665 o20S04 CMP RS, RY :ARE EXPECTED AND RECEIVED 
§56 003670 9014C1 BEQ LIATIB ‘LINE NUBMERS THE 
657 003672 104000 - ERRORC :LINE NUMBERS DIFFERENT, ERROR 
658 903674 104003 LINTIB: SCOPE ; CHECK FOR DATA FREEZE 
INC OUN 


RS 3U NE COUNT 
661 003702 006337 916714 ASL SELMSK iS LECT ie a TO TEST 
6$2 003706 905300 DEC RO iY UPDATE LINE 
663 003710 001356 BNE LINT1A UE 
664 O0371e 104002 SCOPE :CHECK FOR ITERATION, LOOP 


566 ;USING “STEP” MODE, VERIFY THAT THE 

174 :LINE COUNTER CAN BE STEPPED THRU ALL STATES. 

669 903714 Tee: ; REFERENCE DESIGNATION 
670 003714 042737 O00340 177776 LINTe: BIC #340,PS ENABLE INTERRUPTS 


&72 003726 0050 CLR RS 5 CLEAR PaELECY mk LINE 
673 002730 6012737 000001 016714 MOV #] SELNSK :SET UP SE 
674 003736 012701 177777 MOV vik : INIT LINE COUN TER 

675 003742 012700 of0020 MOV :SET UP vad TEST 16 VALUES 
576 003746 Oll0777 O00017 012630 MOV iP 3. ie ‘FIRST VALUE =0 

677 003754 033737 016714 O167le LINT2A: BIT SELIISK, LINSEL s THES Lite SELECTED ?? 


679 003764 OS2777 OO00400 Ol2ble BIS BSTER ee :STEP LINE COUNTER 
680 peeece 017704 012606 tad DHNCSR, § READ LINE COUNTER 


RS ; EXPECTED AND 
682 004000 001401 BEQ PEATze ;RECEIVED LINE NUMBERS 
E 3L NTER_ ERRO 
684 004004 104003 LINT2S: SCOPEF ;CHECK FOR DATA FREEZE 
O04CO6 LINTe 


gS 

686 004010 005205 INC RS : ; UPDATE Dery he Lie NUMBER 

687 O040le 006337 016714 ASL SELMSK SHIFT SELECT 

688 004016 005201 INC Ri ; GEN NEW LINE NO. 

689 004020 010177 012560 MOV R1,JDHMCSR ;SET NEW LINE NO. IN CSR 
004024 0053 R 


£351 004026 001252 BNE LINT2A 
104002 


671 003722 905077 OlebSé- CLR = ADHNCSR :CLEAR CONTROL STATUS REGISTER 
| 
;CHECK FOR ITERATIONS, LOOP 
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001363 
104002 
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002000 


004000 
000020 


000020 
000017 


000409 
012376 


012474 
012466 


012434 


o12426 


012410 
012402 


T23: 
MEMTI: 


MEMTIA: 


MENTIB: 


MEMTIC: 


MEMTI1D: 


MEMTIE: 


MEMTIF: 
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;WRITE 1°S INTO ALL SCANNER MEMORY LOCATIONS. 
s VERIFY THAT ALL LOCATIONS HAVE BEEN WRITTEN 


VER FY THAT “CLEAR SCAN” CLEARS ALL SCANNER 
;MEMORY LOCATIONS. 


#CLRMUX, JDHMCSR 
ve 0, at 


AB TSI? QDHMCSR 


aSTEP, IDHMCSR 
NENTIA 
RO 
1 B0OD RS 
#17, JDHMCSR 
#STEP, JDHMCSR 
DH CSR, RY 


MEMTIC 


RS 

9 

MEMT1B 
#CLRSCN, JDHMCSR 
#BUSY, QDHMCSR 
te. .RO 

RS 

#17, JDHMCSR 
weTeDe spHcsR 
JDHNCSR, RY 

RS, RY 
MEMT IF 


MEMTIE 


; REFERENCE POL 
:CLEAR nee 


NATION 
gies REGISTER 


sENAGLE 1 


10 vest 18 Locarrons 


; TO TEST 16 WORD 
:SET_UP eerie STATUS REGISTER 


START W 
‘Access. SCANNER MEMORY 


t COMPARE EXPECTED AND RECEIVED 


CONTROL STATUS OR MEMORY ERROR 
:CHECK FOR DATA FREEZE 


; UPDATE ag STATUS 
;UPDATE LINE COUN 


seer “CLEAR SCAN” 
;WAIT FOR “CLEAR CYCLES” 


;SET UP TQ TEST 16 MEMORY 

: LOCATIONS 

FIRST TO BE TESTED=0 

sRECESS SEANNER MEMORY 

; COMPARE EXPECTED AND RECEIVED 


: CONTROL STATUS OF MEMORY ERROR 
;CHECK FOR DATA FREEZE 


:UBDATE EXPE pxreciee a 


;CONTTIN Ta 
: CHECK FOR ITERATIONS, LOOP 
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742 004230 
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005077 





912350 


009017 


000400 
Oiee36 


o700C8 


177776 
012324 
Ole316 
012306 


012274 
Oleesé 


012254 


012242 
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Te4: 
MEMT2: 


MEMT2A: i 


MEMTEB: 


MEMT2C: 


MEMT2D: 


LO3 


;WRITE 1°S INTO SELECTED SCANNER MEMORY LOCATION. 
;VERIFY THAT ONLY SELECTED LOCATION WAS WRITTEN INTO. 


apenee 
#340, PF 
Hs "Ro 


?° Re 
a, RSEN JDHMCSR 


aeUSY, , JDHMCSR 
HHRINT 0H JDHMCSR 


Reteee SBRRCSR 
anaINt JDHMCSR 


#16. 
#12; ADHICSR 
Ro 


RI 

#STEP, IDHMCSR 
JDHMCSR, RY 
RS 

RY Re 

#70000, RS 
R4.RS 

NEAT SD 


=wDw 
Mc 
= 2 





;REFERENCE DESIGNATION 
; CLEAR CNT i REGISTER 
; ENABLE IN TER PTS 
;SET UP TO TEST 16 ADDRESSES 
FIRST ADDRESS 10 BE TESTED=0 
CLEAR _ACANNER MEMORY 
;WAIT FOR CLEAR CYCLE 


eT “MAINTENANCE MODE” 
:SET LINE COUNTER TO TEST ADDRESS-1 
EST ADDRESS 


ie 
‘CLEAR “MAINTENANCE MODE” 
TO TEST ALL 1 
SCANNER MEMORY LOCATIONS 
sACCESS SCANNER MEMORY 
AD CONPENTS OF MEMORY 
‘SET UP EXPECTED CONTENTS 
;0F SCANNER MEMORY 
;COMPARE EXPECTED AND RECEIVED 


; VALUES 
SCANNER MEMORY ERROR 
:CHECK FOR DATA FREEZE 


;TEST NEXT SCANNEB LOCATION 
;UPDATE LINE COUNT 
;CHECK FOR ITERATION, LOOF 





SEQ 0037 





~j~J 


a i ie ie tee | 
303-3 
o~iou z 


~I~I~3~ 
coco 
-Ow 
2 
a) 
£ 
g 


Bie OO4SS4 


ee 1 legs 27< 732) 
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17-MAY-7& 13:35 PAGE el 


Olei7e 


Q 
000017 


000400 
012066 


070000 


Ol211é 
012104 


012072 


Tes: 
MEMT3: 


MEMT3A: 
MEMT3B: 


MEMT3C: 


MEMT3D: 


MEMT3E: 


;WITH ALL _ACANNER MEMORY Leeat toe SET TO 1’S, 
WRITE O°S INTO S’ STED L 
:VERIFY THA ONLY LECTED LOCATION WAS CLEARED. 





MO3 























SEQ 0038 


;REFERENCE DESIGNATION 


QDHMCSR :CLEAR CONTROL STATUS REGISTER 
#240, PS ‘ENABLE INTERRUPT 

#16. :RO :SET UP TO TEST 16 ADDRESSES 
#17, Re FIRST ADDRESS 19 BE TESTED=0 
#16: ,R3 ;WRITE 1°S INTO ALL SCANNER 
#MAINT+17, JOHMCSR MERRY L8cATIONS- 


NSTEP, , IDHMCSR 


Re, DDHMCSR sSET LINE COUNTER TO TEST ADDRESS-1 
#STEP, JDHMCSR WRITE 0°S INTO TEST ADDRESS 
#16. iSET U P TO TEST ALL 1 
#17, QDHICSR :SCANNER MEMORY LOCATIONS 
Ri 
#STEP, JDHMCSR ;ACESS SCANNER MEMORY 
JDHMCSR, RY *READ CONTENTS OF MEMORY 
R1,RS :SET UP EXPECTED CONTENTS 
R2 OF SCANNER MEIORY 
MEMT3D 
#70000, R5 
4 RS _~ s COMPARE EXPECTED AND 
MEMT3E RECEIVED VALUES 
:SCANNER MEMORY ERROR 
‘CHECK FOR DATA FREEZE 
Ri 
R3 : TEST NEXT SCANNER LOCATION 
MEMT3C 
;UPDATE ADDRESS COUNT 
MEMT3A 





;CHECK FOR ITERATION, LOOP 
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000001 
002000 
000029 
016714 


0117Se 


011732 
016716 
011716 


011710 
177760 


oo00c} 


000400 
016716 


011636 


011632 
000080 


011620 


016714 
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“76 13:35 PAGE 22 


NO3. 


; VERIFY THAT LINE ENABLE FUNCTION FLIP-FLOP CAN 
;BE SET AND CLEARED FOR SELECTED LINE 


T26: 
MUX1: CLR 
177776 BIC 


016714 MOV 
011772 MUX1A: MOV 


MUXIB: CLR 


MUXIC: CMP 


MUXIE: MOV 


MUXIF: SCOPEF 





dey’ oye DESIGNATION 


JDHMCSR ‘CLEAR CONTROL STATUS REGISTER 
#340, PS ‘ENABLE INTER 

#i6. . RC :SET UP TO TEST ie, FUNCTION FLIP-FLOP 
#1, SELMSK ‘INIT LINE SEL ECT MASK 

1 START AT LINE O 
wCLANLX, JDHMCSR 
SELARK, LINSEL :IS THIS LINE SELECTED FOR TEST ? 

XAFS BR IF NOT 


MCSR :SELECT LINE TO BE TESTED 
RL abate JOHMLSR :SET LINE ENABLE FUNCTION FLIP-FLOP 
#1, SLMSK :INIT ANOTHER SELECT MASK 
aDHMCSR 
SLMSK, LINSEL ;SELECTED 9? 

MUX1D’ N 


OT 
JDHMLSR, RY READ LINE STATUS REGISTER 
JOHMCSR, RB - READ CONTROL STATUS REGISTER 
#177760,R23 ?CLEAR UNWANTED BITS 
R1,R3 :IF LINE NUMBER=SELECTED LINE NUMSER 
MUXIC *EXCEPT LINE ENABLE FUNCTION FLIP FLOP 
ALINENA, RS 
:T0 BE SET 
RS,RY ; COMPARE EXPECTED AND RECEIVED 
MUX1D :R 


sLINE Status ERROR 





#STEP, JDHMCSR ;EXAMINE NEXT LINE 
SLMSK SHIFT MASK 


MUX1B 
R1, JDHMCSR 

1 :SET LINE COUNTER TO SELECTED LINE 
JOHMLSR s CLEAR LINE ENABLE FLIP FLOP 
#0. ;DELA FOR CABLE 
JDHMLSR, RY READ LINE STATUS REGISTER 


SHAS LINE ENABLE FUNCTION FLIP FLOP 


INO. LINE STATUS ERROR 
“CHECK FOR LOOP ON SAME para 


SELMSK ;SHIFT SELECT MASK 

Rl :SELECT NEXT LINE 

RO ; DECREMENT LIN. COUNT 

MUX1A ;CONTINU IF NOT DONE 

;CHECK FOR ITERATIONS, LOOP 


MUX1F 





8 
$ 
S, 
3 
8 


$ 
: 
$ 
= 
= 
= 


o5 
3 
: 
0 
i 
= 
— 
3 
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: 
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i 
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SAIS INE 
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ut 
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m™ 


~~ 
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Mong 
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wo 
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4e 
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I0).0 
“Cho 


fue 


to 


JCD 


WhO. Ow 


“o*)-C90) 


*0--0-*6 +0 +--+ 
TONM Oe tumue- OO 


TO ATVArVareareirearvalvary 





200 O00 OB8O0OM 


“Ooor- 


0167214 


SVERIFY THAT TERMINAL 
:BE SET AND CLEARED FOR SELECTED LINE 





BO4 


DOHMCSR 
8340, PS 

#16. ,F0 

Bi, sate, 
acLAMUX, , JOHMCSR 
SEcaRK, LINSEL 
R1. JDHMCSR 
aTAMROY. OHMLS 
ei, SLMSK 
JDMMCSR 

RS 

SLMSK, LINSEL 
MUX 


aDHMLSR, RY 


BTRREDY, RS 


RS, R4 
MUX2D 
aSTEP, JOHMCSR 
SLMSK 


Re 

a 

Ri, pee 
R1,R 

JOMMLSR 

a0 


<4 
SOHMLSR, oa 
UME 
SELMSK 

R1 


RO 
MUXZA 


READY FUNCTION FLIP-FLOP CAN 


; REFERENCE DESIGNATION 

:CLEAR CONTROL giet US REGISTER 

; ENABLE INTEREUP T§ 

:SET UP TO TEST 1é — FLIP-FLOP 
sant LINE was ASK 


NE SELECTED FOR TEST ” 
Be TESTED 


-¢« 


_T 
ape 


HER SELECT MAS 


; SELECTED? 
R IF NOT 


388 IF NO 
;READ LINE STATUS REGISTER 
sREAD. FONTROL STATUS REGISTER 
; CLEAR UNWANTED BITS 
:IF LINE NUMBER=SELECTED LINE NUMSES, 


EXCEPT TERMINAL RERDY FUN NCTION “> re FL cP 


:TO. BE SET = 
:COMPARE EXPECTED AND RECEIVED 
SRESULTS 

[LINE STATUS ERROR 


INE NEXT LINE 


EXAM 
IFT MASK 


7 SH 


:SET LINE COUNTER TQ SELECTED L 
LEAR TERMINAL READY FLIP FLOP 
DEL) FOR CABLE 


:READ LINE STATUS REGISTER - 
swe RMINAL READY FUNCTION FLIP FLOP 


CLEARE 
NO, LINE STATUS ERROR 


:CHECK FOR LOOP ON SAME DATA 


;SHIFT SELECT > y 


ONE 
:CHEC k FOR ERAT ONS, LOOP 





NAL "38 ADY PUN! ION FLIP-FLOP 





’ 
PS 
= 
= 
= 
= 
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= 
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Hep erphortesgey 


2 
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C 
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—-O0o © Oo 


O1ii42 
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13:35 


730: 
MUX3: 


MUX3A: 


MUX3B: 


MUX3¢: 


MUX3D: 


MUXSE: 


PAGE 24 


CO4 


; VERIFY THAT REQUEST TO SEND FUNCTION FLIP-FLOP CAN 
:BE SET AND CLEARED FOR SELECTED LINE 


DDHMCSR 
340, PS 
#16. 0 
81, SELMSK 


aa . 3DHMCSR 


SELAK,L INSEL 
Ri. SHNCSR 
aRS JOHMLSR 
81, SLMSK 
aDHMCSR 

RS - 
SUMSK ,LINSEL 
MUX3D 
JOMMLSR, RY 


SRS RS 


RS, RY 
MUX30 


eSTEP, JOHMCSR 
SLMSK 


MUXSB 

RI. SOHMCSR 
JOHMLSR 
ee 
JOHMLSR, RY 
RG 

MUX3F 
SELMSK 

Ri 


RO 
MUX3A 


ae eee a ee ee 





REFERENCE ee ane 
cL EAR CONT Bo te US REGISTER 
;ENABLE INTERRUPTS 

;SET UP TO TEST ie FUNCTION FLIP-FLOP 
:INIT LINE SELECT MASK 

:START AT LINE O 


ties SELECTED FOR TEST ” 
re TO BE TESTED 


EST TO SEND FUNCTION FLIP-FLOP 
OTHER SELECT MASK 


=O 


;SELECTED ? 
:BR IF NOT 

READ LINE STATUS REGISTER 
READ CONTROL 5 OTe REGISTER 
3CL ose BITS 


:IF LINE NUMBER=SELECTED LINE NUMSER 

:EXCEPT REQUEST TO SEND FUNCTION FLI® FLOE 
TO BE SET 

Sou EXPECTED AND RECEIVED 

“LINE STATUS ERROR 


s EXARENE NEXT LINE 
SHIFT MASK 


:3&7 LINE COUNTER TO 
LEAR REQUEST TO SE 
DLA FOR CABLE 


'READ LINE STATUS REGISTER 
iS QUEST TO SEND FUNCTION FLIP FLOP 


R 
NO LINE STATUS ERROR 


SELECT 
NO FLIP 


:CHECK FOR LOOP ON SAME DATA 
i SHIFT SELEQT A a 


LECT NEXT L 


;SEL INE 
se eeENT Lang COUNT 
sCONTINU IF N ON 


SENECK FOR ITERATIONS, Lop 














DO4 
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DSOHko. PL) 
972 :VERIFY THAT SECONDARY TRANSMIT FUNCTION FLIP-FLOP CAN 
303 :BE SET AND CLEARED FOR SELECTED LINE 
75 005510 731: :REFERENCE DESIGNATION 
876 995210 ooso7? 911070 _ MUX4: CLR JOHMCSR “CLEAR CONTROL STATUS REGISTER 
Q7> O55514 o42737 900340 17777 BIS 8340, PS sENASLE INTERBUPTS 
e7g 905522 912700 000020 Moy #16. RO :SET UP TO TEST ie FUNCTION FLIP-FLOP 
879 905556 Ole73? 90000] o18714 MOV 81, SELMSK : INIT UP INE SELECT MASK 
$80 905534 005001 CLR R} ‘START AT LINE O 
$8: 905536 912777 002000 011040 MUX4A: . MOV ac. AMU, SDHMCSR 
$82 905544 Ol2702 900020 - MOV K 
$83 905550 333737 O16714 o16712 — are secek, LINSEL IS THIS LINE SELECTED FOR TEST ? 
$84 695558 501463 3EQ :8 NOT 
$85 605560 019177 011020 MOV MCSR SPECT NC INE TO SE TESTED 
$96 005564 Ole777 000010 2119014 MOV nah SCHMLSR :SET SECONDARY TRSNSHET FUNCTION FLIP-FLOP 
$87 605572 915737 000001 O1&715 MOV 1, SLMSK :INIT ANOTHER SELECT MASK 
995805 005077 011000 CLR SOURCE 
383 905604 05005 ' MUX48: CLR RS 
$36 005606 033737 clg71s O16712 SIT SUMSK, LINSEL :SELECTED 7? 
$81 905614 901417 BEQ MUX4D’ :BR IF NOT 
$32 905816 O17704 910764 MOV 2DHMLSR,RY -READ LINE STATUS REGISTER 
$83 OCS62= 117703 210756 MOVB  aDHMCSR:R3 : READ EON TROL STATLIS REGISTER 
894 905626 O42702 177760 BIC #177760, Re : CLEAR UNWANTED BITS 
895 995632 020103 CMP R1,R3 :IF LINE NUMBER=SELECTED LINE NUMBER 
$36 005634 901092 SNE MUKHS tENCEPT SECONDARY TRANSMIT PeNCT TEN N FLIP FLOP 
$22 505636 612705 cooo:0 MOV eSECTX.RS a or ork 
999 O0Sb42 20504 MUX4C: CMP RS, R4 :EOMPARE EXPECTED AND RECEIVED 
1900 805644 901403 BEQ MUXYD 
1001 O0564 104001 ERRORL CINE SFarus ERROR 
1002 805650 104003 SCOPEF 
109 oosss4 MUX4 
1004 OO56S4 952777 oo0400 O10722 MUX4D: BIS #STEP, IDHMCSR , : EXAMINE NEXT LINE 
1005 ooSs62 006337 OLE7IE ASL SLMSK "°° SSHIFT 
1006 OO0SS6— 905302 DEC Ro 
597 OOS670 0091345 BNE MUX4B 
| 1008 905672 905005 CLR 
1009 005674 9610177 010704 MUX4E: MOV R1, JOHMCSR 
1016 005700 910103 MOV R1.R3 :SET LINE COUNTER TO SELECTED | LINE. 
1911 995702 O00S077 010700 CLR JDAMLSR :CLEAR SECONDARY TRANSMIT FLIP FL 
iOi2 sO570& 105227 900000 INCS = #0 sDELAY FOR CABLE 
1013 O0S712 001375 BNE lj BITTO 
| {$034 005714 017704 o10666 MOY JOHMLSR, R4 :RERO LINE STATUS REGISTER 
| i018 906720 005704 TST RY S SECONDARY TRANSMIT FUNCTION FLIP FLOP 
| 016 906782 90140) BEQ MUX4F , SCR ED 
| 3817 805754 0400) ERRORL LINE STATUS ERROR 
1D1@ 905726 104903 MUX4F: SCOPEF ‘tneck FOR LOOP ON SAME DATA 
101$ 905730 00553¢ MUX4A 
\ $029 005732 006337 016714 asL SELMSK :SHIFT SELECT MASK 
| 102: 005736 C0520) ING Ri SELECT NEXT LINE 
1d22 605740 005300 DEC RO ;DECREMENT LINE COUNT 
| 1823 O0&742 001275 BNE MUXSA :CONTINU IF 


NOT SONE - 
005744 10400e SCOPE ° : CHECK FOR ITERATIONS, LOOP 


* 
¢ 

nr 
4 





bony MACYLL 27.732) 
Pl 


104002 


17-MAY-76 


nlc 
000020 


000001 
0000e0 
016714 


000400 


000301 
010472 
009002 
009008 
O104S4 


010434 
016714 


7999 
rad 


-- 


016714 
0167i2 


010564 


010510 


O104E6 


13:35 PAGE 26 


T32: 
MUXS: 


MUXSA: 


MUXSB&: 


MUXS¢C: 


MUXSD: 


MUXSE: 


MUXSF : 


:VERIFY THAT CLEAR T 
:AND TERMINAL ARE Sz 


JDHMC 
#340, 
#15. 


1 
#1, SELMSK 

#16. Re 

SELMSK, LINSEL 

MUXSF 

RI, JDHMCSR 
ALINENR*TRIROY, JOHMLER 5 


RS 
QDHNLSR, RY 


R4RS 
MUxSD 


BSTEP, IDHMCSR 
RE 

MUXSe 
#LINENA,RS 

R1 JOHMCSR 
aTRNRDY , SOHMLSR 


a, 
SDHILSR, RY 


MUXESE 


Ri 
JOHMLSR 
ieee 


MUXSA 


SR 
PS 
;RO 


MUXSC 
#LINENA+TRMRDY+CO+CS5 RS 


D 
Ta FOR ITERATIONS, LOOF 








ARRIER ARE SET IF “LINE ENABLE” 
ED LINE. 


;REFERENCE DESIGNATION 
CLEAR CONTROL REGISTER 
NTERRUPTS 


is IN 

:SET U at TEST 16 LINES 
rid L 

HITT Lite SELECT MASK 
sTHIS LINE SELECTED FOR TEST 


:SELECT A LINE 
:SET LINE ENABLE E + TRNEDY 


:CLEAR omg TRESULT 
;READ LINE STATUS 
;REAO LINE NUMBER 
; CLEAR UNWANTED SITS 
;IF RECEIVED LINE=SELECTED LINE 
EXPECT LINE ENABLE AND 


;CLEAR TO SEND ae CARRIER ARE SET 
;COMPARE EXPECTED AND 

:RECEIVED RESULTS 

LINE STATUS ERROR 


; UPDATE LI gi J 


2 
:CLEGR TERMINAL 
3 RELAY FOR CABLE 


;DITTO 

:READ LINE STATUS REGISTER 

sChLY LINE ENASLE SHOULD SE 
THIS LINE 


ON LIN 
;LINE STATUS ERROR 
Check FOR LOOP ON SAME DATA 


;UPDATE LINE NUMBER 

:CLEAR LINE STATUS REGISTER 
;SH IFT MARK TQ TEST NEXT ,INe 
;CONTINUE IF ALL LINES NC 








DIDHK=C_MACYLL 27:72) 
DHKO.PL2 


DZD we 


+ 0 0+ b= 0+ b+ b+ bo + bo 2 oe bo bo bh 0 COICO OOOOH 


+ & + 0 = B20 2 bb -* 0 0 bo ho + Fs = hs 0 


p06400 


012705 
pede 


104002 


L17-MAY-76 


010414 


000001 
000020 
016714 
019352 
009905 
010340 
019334 


o0020S 


000403 


008901 


010254 
909904 
000000 


04 010236 


016714 
016712 


010346 


01027e 


010250 





T33: 
MUX6: 


MUXEA: 


MUX6&B: 


MUXEC: 


MUXED: 


MUXEE: 


MUXEF: 


i3:35 PAGE e7 


:VERIFY THAT RING IS SET 
;AND REQUEST TO SEND ARE 


FO4 


JOHMCSR 
#340, 
#16. ,RO 

RI 

#1, SELMSK 

#16. Re 

SELMSK, LINSEL 

Ri, JOHMCSR 

#L INENA+RS, DDHMLSR 
JOHMCSR 


JOHMLSR, RY 


MUXSC 
#LINENA+RS+RING, RS 


RY,RS 
MUXED 


#STEP, JDHMCSR. 
Re 

MUX&B 
#LINENA,RS 


RI, 
” JDHMCSR 
are) IOHMLSR 


SDHMLSR, RY 
RS RY 
NUXGF 


IF 
SET 








NE ENABLE” 
R SELECTED LINE. 


;REFERENCE DESIGNATION 
; CLEAR CONTR, oe 
; ENABLE INTERR 

:SET UP TO TEST. te LINES 
:etaRT AT LINE 0 

tINIT ae SELECT MASK 

; THIS Lin SELECTED FOR TEST ” 
:8R IF 

;SELECT A ve NE 

:5 T LINE EN ABLE +RS 

;CLEAR CONTROL REGISTER 

: CLEAR parece ‘pal LT 


TED SITS 
F RECEIVED LINE=SELECTED LINE 
ited LINE ENABLE AND 


;RING IS SET 

; COMPARE EXPECTED AND 
;RECEIVED RESULTS 
LINE STATUS ERROR 


;UPDATE LINE COUNTER 

s CONTINUE IF ALL CHECKS 

NOT DONE FOR THIS LINE 
LINE ENABLE 


ob LEAR REQUEST TO SEND 
‘DITTO FOR CABLE 


:READ LINE STATUS REGISTER 
; ONLY Li ENABLE SHOULD BE 
:SET ON THIS LI ie 

LINE STATUS ERR 
i SHeCk FOR LOOP ON SAME DATR-. 


;UPDATE LINE NUMBER 

CL om ut STATUS REGISTER 

; SHIFT K_TQ TEST NEXT LINE 
‘CONTINUE tF ALL LINES NOT 


‘CHECK FOR ITERATIONS, LOOP 


SES S044 








0+ B20 = b-2 b 0 hs bs Bs bo = bo a oe 2 2 0 ho 0 2 be b-* b+ he B* be be b-2 8 beh -8 be be he h8 ho ho hho bh hs hehe pe Bo pe 


OKC. 
25 
36 
27 
58 
30 
31 
32 
33 
34 
35 
36 
37 
38 
38 
40 
41 
42 
“3 
“4 
45 
<b 
4? 
48 
45 
50 
Si 
52 
23 
54 
SS 
B3 
57 
fe 
=5 
60 
Ei 
62 
63 
64 
ne 
66 
67 
bz 
oS 
70 
71 
72 
73 
74 


o-+ & = §-< 6+ 9 <b — 6 8 = & = 9 = Bb -  §- F —* §—o = > = Fo 0 oo 20-20 — » =9-< pp 9+ 9 


001002 
012705 
020405 
00 


104002 


17-MAY-75 


10176 
00340 
00020 


000460 


000901 
010036 
ss 


010020 


13:35 PAGE 28 


T34: 
MUX? : 


MUX7A: 


MUX7B: 


MUX7C: 


MUX7D: 


MUX7E: 


MUX7F : 


Ri, JDHMCSR 
aL ENENA+SECTX, DHMLSR 


MUX7C 
#L INENA+SECTX+SECRX, RS 


1’ JOHMCSR 
a 


SCHECK FOR ITERATIONS, LOOP 








; VERIFY THAT SECONDARY RECEIVE IS SET IF “LINE ENABLE” 
;ANO SECONDARY TRANSMIT ARE SET FOR SELECTED LINE. 


Se on DESIGNATION 
CLEAR CONTROL REGISTER 
: ENABLE INTERRUPTS 

; SET ray tae 16 LINES 
iSTeRT 6 


HIATT cine afrecr MASK 
This Cine SELECTED FOR TEST ” 


ISELECT A LINE 
:SET LINE ENABLE +SECTX 


EAD LINE 
; CLEAR UNWANTED BITS 

IF RECEIVED LINE= SELECTED LINE 
EXPECT LINE ENABLE AND 


; SECONDARY RECEIVE , IS SET 
; COMPARE rH ED AND 
RECEIVED RESULTS 

;LINE STATUS ERROR 


;UPDATE LINE gt 
:CONTINUE IF ALL CHECKS 
ARE NOT DONE FOR THis LINE 
;EXPECT LINE ENABLE 

:ON SELECTED LINE 

;SELECT LINE 

:cLERR y peconcere TRANSMIT 


READ LINE STATUS REGISTER 
:ONLY LINE ENABLE SHOULD BE 
;SET ON THIS LIN 

LINE STATUS ERROR 

;CHECK FOR LOOP ON SAME DATA 


:UPDATE LINE NUMBER 

;CLEAR LINE STATUS REGISTER 
SHIFT MARK TO TEST NEXT LINE 
:CONTINUE IF ALL LINES NOT 











Bente =p van 271732) 
DIODHKE PL) 








~s 
ut 


Q0SEe9 
007760 


B04co 


000001 


000020 
002000 
016714 


007670 
007666 


BBE IRRL GOO BE IRR EOE kd tole 





= 0 0 bb bb bs bo bo b= 0b + bo ho = ho bo po ho he po bo pe 
© 
~ 
4 


TUTUSTU &— 0+ b—- b= 0 8 + b+ 0 bb 0 p= po 92 9 Bb 2 9 po pep <-> 


008001 
007636 













007616 
018714 













++ 9 9 


006776 001340 
007000 104002 





007704 
01671e 


007642 


T35: 
MUX8: 


MUXB8A: 


MUX8B: 
MUX8C: 


MUX8D: 


MUX8E : 


17-MAY-75 13:35 PAGE 29 


HO4 


;VERIFY THAT “CLEAR MULTIPLXER” CLEARS ALL MULTIPLEXE® 
FUNCTION FLIP-FLOPS 


JDHMCSR 
#340,PS 


#16. /RO 
te " SDHMLSR 
STEP, JOHMCSR 


UxgA 
#1 SELMSK 
R3 


#16. ,RO 
#CLRMUX, IDHMCSR 
SELMSK, LINSEL 
MUXBE 

R3, JDHMCSR 
SDHMLSR, RY 


RY 
MUX8D 


RS 

#LINENA, JDHMLSR 
JDHMLSR; RY 

RS, R4 

MUXSE 


R3 
JDHMLSR 


SELMSK 


RO 
MUXBC 


E 
CHECK FOR ITERATIONS, LOOP 


; REFERENCE DESIGNATION 


; 16 LINES 
;WRITE 1S INTO ALL MULTIPLEXER 
FONCTION FLIPFLOPS 


;INIT SELECT MASK 
:SET UP FOR 16 LINES 
;CLEAR MULTIPLEXER 

i SEL ECTED_?? 


F 
‘SELECT LINE 
; READ Lhe STATUS REGISTER 


HAS CINE STATUS REGISTER CLEARED 


;LINE STATUS ERROR 
:CHECK FOR LOOP ON SAME DATA 


;EXPECT LINE ans 

:SET LINE ENASLE ON SELECTED LINE 
;READ LINE STATUS REGISTER 

:15 ANYTHING BUT LINE ENABLE SET 


sLINE STATUS ERROR 
;CHECK FOR LOOP ON SAME DATA 


iPLeaR LINE NUMBER 


SELECT MASK 
: CONT INE” IF ALL LINES NOT 








104 
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ZDHKC.P LL 

Be 

1217 . S INTO ALL SCANNER MEMORY LOCATIONS 

1218 ise TOLINE NABLE FOR i LIN ES 

1213 VERIFY THA NTERRU CURS FOR EACH LINE 

1332 S008 777 007574 sent MOY CLAMLX, JDHMCSR iREER ALL MCT IPLEXER FLIPFLOPS 

ra 737 : # 

1555 ah 5 BhEnSS Bpsecs CLR JDHMCSR it AR CONTROL RE EGYSTER 

1224 907014 942737 000340 177776 BIC #340, PS : ENABLE INTERRU 

l2e5 007022 O1e700 000020 MOV #16. >RO SET UP TO atte. rt S INT 

226 007026 912777 001017 907550 MOV enniNT#17, JDHMCSR sALL SCANNER MEMORY LOCATION 

l227 007034 012737 000001 01671 MOV SINT SELECT MASK 

lees O07042 052777 090400 baes34 SCNTIA: BIS SSteP SBHMCSR WRITE A LOCATION 

1229 007050 Ole777 000001 007530 MOV #LINENA, JDHMLSR LET "LINE ENABLE” 

1230 007056. 905300 DEC 8=—-—- RO 

1231 697060 001379 é BNE SCNTIA 

1232 007062 012701 177777 MOV #-1,R1 ;INIT LINE NO. GEN. 

1233 007066 O1e705 970340 MOV #70340, RS :EXPECT "DONE™+"SCNENA™+"COF"+"CSF"™+"SECRXE™ 

1234 007072 012777 007202 007500 MOV aSCNTIC JDHMVEC SET UP LOCAL INTERRUPT SERVICE 

1235 007100 013777 177776 007474 MOV PS aOHMEVL :SERVICE AT LEVEL 

1236 007106 012700 900020 MOV #16. RO 

1237 007112 012777 000117 oo7464 MOV SINTENA#17 JOHMCSR ;SET_INTERRUPT ENABLE 

1338 007120 033727 916714 016712 SCNTIB: BIT SELINSK K,LINSEL :SELECTED ?? 

1239 907126 001435 BEQ SCN TD. :BR IF NOT 

1240 907130 052737 OCO0340 177776 T :LOCK OUT INTERRUPTS 

124i 007136 052777 o000%u o07440 B15 SSCNENA, JOHMCSR :START SCANNER 

le42 007144 042737 600340 177776 BIC #340, PS’ ;ENABLE INTERRUPTS 

1243 997152 105 007426 TSTB SDHMCSR ; WAIT 

1244 997156 100375 BPL ;PROGRAM WILL HANG HERE 

1245 IF DONE NEVER SETS 

Lev 716 952737 000340 177776 BIS 8340 s INTERRUPT DID NOT OCCUR 

124 7166 017704 O07412 MOV SBHMESE, RY RROR 

1e48 007172 104000 ERRORC :CONTROL STATUS ERROR 

1243 007174 104903 SCOPEF CHECK FOR LOOP ON SAME DATA 

1250 907176 007002 SCNT! 

(523 2509 Qapese SCNTIC POPeSP cab NTERRUPT OCCURED, REPOSITION STACK 

. ~: : 4 3 

1525 557308 vega 007374 MOV JDHMCSR, RY ; READ RONTROL STATUS 

1254 007210 O20504 ; CMP RS,R4 ARE EXPECTED AND RECEIVED 

1255 O07212 901403 BEQ = SCATID ;REGISTER SA 

1256 007214 194000 ERRORC NO, LINE STATUS ERROR 

1257 007216 104003 SCOPEF | ;CHECK FOR LOOP WITH CURRENT DATA 

i258 097220 007002 SCNT! 

1259 007222 042777 000257 007354 SCNTID: BIC sSCNENA+DONE +17, IDHMCSR CLEAR sc AN ENABLE AND DONE 

1260 007230 905201 INC N NXT tine NO. 

1261 907232 150177 007346 BISB R1,aDHMCSR ET LINE BITS 

le62 007236 006337 O16714 ASL SELNSK SELECT MASK 

1263 007842 005205 ING RS yal EXPECTED RESULT 

1264 007244 005300 DEC RO ;CONTINUE IF NOT DONE 

1265 007246 901224 BNE SCNTIB 

1286 007250 104002 SCOPE ;CHECK FOR ITERATIONS, LOOP 


























JO4 
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cDOHK 


1268 ;WRITE 1°S INTO ante | a alae FUNCTION FLIP-FLOPS 
1269 :CLEAR SCANNER 
1270 VERIFY THAT aN INTERRUPT OCCURS FOR EACH LINE 


lev2 O072Se 137: ;REFERENCE DESIGNATION 

lev3 O07eSe Qie700 000020 SCNT2: MOV #16. ,R0 SWRITE -1S INTO ALL 

1e74 007256 Ole777 002000 007320 MOV acLRHUX, JOHMNCSR ;CLEAR MULTIPLEXER 

le75 007264 005077 007314 CLR JDHM ;MULTIPLEXER FUNCTION 

le7S =O07e70 O4e737 OO034O 177776 Bic 2340, Re ; ENABLE TELETYPE oes 
le?7? 007276 Qle73s? 000001 016714 MOV #1, SELMSK eM LINE SELECT 

le78 007304 Qle777? 000017 007274 SCNT2A: MOV al? ODI FLIPFLOPS 


een 12a 
ieBe O0073e% Ole77? o04000 007252 MOV #CLRSCN, JDHNCSR ;CLEAR SCANNER MEMORY 
1e83 007332 O3e777 O000e0 007244 BIT wBUSY, JOHMCSR ;WAIT FOR CLEAR CYCLE TO COMPLETE 
1e84 907340 001374 BNE 
1e8S 007342 O1le700 ope o MOV 16. RO ;SET UP TO TEST 16 LINES 
1286 907346 QOl2701 177 MOV my Ri ; INIT LINE NO. GENERATOR 
le87 O073Se 012705 170° MOV 170340, RS :FIRST EXPECTED RESULT 
1e88 007356 Qle77? OO74cS 007214 MOV aschizt , SDHIVEC ;SET UP LOCAL INTERRUPT RETURN 
1e89 007364 QO13777 17-776 007210 MOV JDHM 
1e90 097372 Ole777 060117 007204 MOV aiATeNRsI?7 @DHMCSR eT INTERRUPT ENABLE 
1e91 007400 033737 016714 Q167le SCNT2B: BIT aie LINSEL 315 T HIS LINE SELECTED 7? 
leS2 007406 001435 BEQ a 120. NO 
1e93 007410 OS2737 000340 776 BIS ‘LOCK OUT INTERRUPTS 
1e94 007416 052777 O00040 atts BIS SSCNENA, JDHMCSR :START SCANNER 
1295 007424 042737 000340 177776 BIC #340, PS’ ; ENABLE INTERRUPTS 
1e96 =OO7432 105777 007146 TSTS SDHMCSR ;WAIT FOR DONE 
1e97 007436 100375 BPL ; 


1299 007449 052737 000340 177776 BIS #340 : 
1300 067446 017704 007132 MOV SeHNOSE. RH ?READ CONTROL STATU 


1301 O074S2 104000 ERRORC : INTERRUPT DID NOT OCCUR 
1392 007454 104003 SCOPEF :CHECK FOR LOOP ON CURRENT DATA 

1303 007456 07252 SCNTe 

1304 07460 O00410 BR SCNT2D : CONTINUE 

1305 O07462 Oe2b26 SCNT2C: POP2SP s INTERRUPT OCCURED RESTORE STACK 

1308 907464 017704 007114 MOV JDHMCSR, 84 ?READ CONTROL STATUS REGISTER 

1307 607470 920504 CMP :COMPARE TO EXPECTED RESULT 

1308 72 0091403 BEQ SCNT2D 

1309 907474 104900 ERRORC ;CONTROL STATUS ERROR 

1310 007476 104003 SCOPEF :CHECK FOR LOOP ON CURRENT DATA 

1311 907500 O07252 SCNT2 : 

1312 007502 042777 000257 007074 SCNT2D: BIC BSCNENA+DONE+17,QDHMCSR ;CLEAR SCAN ENABLE AND DONE AND LINE NO. 
1313 907510 006337 O16714 ASL SELMSK SHIFT SELECT BIT 

1314 007514 0O0S201 INC RI : GEN NeW L LINE NO.- 

1315 007516 180177 oo7D6e2 BISe R11, IDHMCSR :SET IT IN CSR 

1216 007522 605205 INC RS s UPDATE EXPECTED RESULT 

1217 007524 905300 DEC RO :CONTINUE IF ALL 

13is 007526 001324 BNE SCNT28 !LINES NOT TEST = 

i319 007530 104002 SCOPE :CHECK FOR ITERATIONS, LOOP 


DZDHK=C_MACY11 271732) 
DZDHKC.P 11 


007532 


4 
007566 





KO4 
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;SINGLE LINE CABLE TEST 
;FOR USE WITH MODEM CABLE AND DC11 TEST CONNECTOR 


sNOTE: MODEM CONTROL MULTIPLEXER INPUTS SHOULD BE CONNECTED 
:T0 DISTRIBUTION PANEL WIA DM11-DC 


7100; EEE ES DESIGNATION 
Qle737 007552 002204 STRLIN: MOV #STRLNA, KRET :SET a NEW LINE SELECTION 
342737 O0034Q 177776 BIC #340,PS ‘ENABLE INTERRUP 
104004 TYPE : TYPE "SINGLE LINE CABLE TEST” 
017723 MLINE 
104013 STRLNA: INSTRG ;GET LINE NUMBER 
017756 MLINET 
003009 
000017 7 
01667e LINE 
194004 TYPE 
017720 MCRLF 


ee ee a ee ee ee ee 





SEQ 0049 





DZDHKC. 


iby Macyll 
Pll 


007570 


007744 


945) 


7(73e 


1 
104002 


17-MAY-76 


007010 


0 
000001 
096746 


006742 


006734 
177760 


000001 


000400 


OOESEE 


00662 
000000 


005650 


006754 


006700 


T101: 
MUX11: 


MUX11A: 


MUX11B: 


MUX11C: 


MUX11D: 


MUX1I1E: 


MUXLI1F: 


13:35 PAGE 33 


HE BRIE 
;BE 


ERRORL 
SCOPE 





LOY 


Y THAT L WES Osh E LE E FUN 


T AND CL 
JOHMCSR 

#340, PS 

LINE’ R1 

AC JDHMCSR 


JOHMCSR 
aL then, JDHMLSR 


ac 
JDHMLSR, RY 
JDHMCSR;R3 
#177760,R3 
R1,R3 
MUXLIC 
LINENA, RS 


RS, RY 
MUK11D 


#STEP, IDHMCSR 

MUX11B 

R1, JDHMCSR 
1:R2 

JOHMLSR 

#0. 

JDHMLSR, R4 

MUXLIF 


NE TAR + ae FLOP CAN 


;REFERENCE DESIGNATION 
;CLEAR CONTROL STATUS REGISTER 
ZENABLE INTERRUPTS 


;SELECT LINE TO BE TESTED 
;SET LINE ENABLE FUNCTION FLIP-FLCP 


;READ LINE STATUS REGISTER 
: READ CONTROL STATUS REGISTER 

:CLEAR UNWANTED BIT 

IF LI NE NNUNBER=SELECTED LINE NUMBER 
‘EXCEPT LINE ENABLE FUNCTION FLIP FLOP 


:T0 BE SET 
; COMPARE EXPECTED AND RECEIVED 
SINE Status ERROR 


;EXAMINE NEXT LINE 


;SET LINE COUNTER TO SELECTED LINE 
:CLEAR LINE ENABLE FLIP FLOP 
:DELAY FOR CABLE 


:DITTO 
TREAD LINE STATUS REGISTER 
HAS Rane ENABLE FUNCTION FLIP FLOP 


CL 
=NO, LINE STATUS ERROR 
:CHECK FOR ITERATIONS, LOOP 

























SEQ C0SO 





hs ap ‘1 ales 
DZDHK 


1381 

1382 

1383 oe 
1384 007746 
1385 OO07746 
1388 0077Se 
1387 007760 
1388 007764 
1389 007772 
1390 9007776 
1331 01000e 
1392 610010 
1393 O100i4 
1394 010016 
1395 010022 
1396 010026 
1397 9010032 
1398 9010034 
1399 010036 
1400 

1401 010042 
1402 QO10044 
1403 010046 
1404 910050 
1405 019052 
1406 910054 
1407 010062 
1408 010064 
1409 010066 
1410 010070 
1411 010074 
l41le 010076 
1413 6:0102 
1414 O10106 
1415 910110 
1416 Q10114 
1417 OiGilé 
1418 010120 
1419 O10l22 


eo 





271732) 


aes he 


104002 


17-MAY 


005632 
tees 


Qe 
00002 
006570 


006564 


006556 
177760 


000002 


0004C0 


006510 


006504 
005900 


006472 


177776 
006612 


006576 


O06S522 


“7& 13:35 PAGE 34 


T10e; . 
MUXle: 


MUX1EA: 


MUX12B: 


MUX1eC: 


MUX12D: B 


MUXI2E: 


MUX12F: 


MO4 


SEQ 0051 


;VERIFY THAT TERMINAL READY FUNCTION FLIP-FLOP CAN 
;BE SET AND CLEARED FOR SELECTED LINE 


8 
ERRORL 
SCOPE 


JDHMCSR 
ahs fe 


LINE 
SCLRHLX, JOHMCSR 
JDHMCSR 
ATARROY, SOMMLSR 
JDHMCSR 
JDHMLSR, RY 
MUX12 
#TRMRDY , RS 


85 RY 
NUK 12D 


#STEP, IDHMCSR 
MUX12B 


‘RI, QDHMCSR 


JOHMLSR 
#0. 
JDHMLSR, RY 
RY 

MUX L2F 


dey ges DESIGNATION 
CLEAR CONTROL STATUS REGISTER 
ENABLE INTERRUPTS 


;SELECT LINE T0 BE TESTED 
:SET TERMINAL READY FUNCTION FLIP-FLOP 


; READ LINE STATUS REGISTER 

;READ CONTROL STATUS REGISTER 

;CLEAR UNWANTED BIT 

:IF LINE NUMBER=SELECTED LINE NUMBER, 
EXCEPT TERMINAL READY FUNCTION FLIP FLOP 


TO BE SET 
i COMPARE EXPECTED AND RECEIVED 
LINE STATUS ERROR 


;EXAMINE NEXT LINE 


;SET LINE COUNTER TO SELECTED LINE 
:CLEAR™ reece READY FLIP FLOP 
sDELAY FOR CABLE 


READ LINE STATUS REGISTER 
SHAS TERMINe. READY FUNCTION FLIP FLOP 


INE STATUS ERROR 
i FOR ITERATIONS, LOOP 








DZDHK-C_MACY11 
DZDHKC.P11 


Wiwrrn 


£OLfMero LOMO £oc 





104002 


O064S4 


006412 
O06405 


006400 
177760 


000004 


C004CO 


006332 


006326 
000000 


006314 
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177776 
006434 


006420 


006344 


NO4. 


; VERIFY THAT REQUEST TO SEND FUNCTION FLIP-FLOP CAN 
;BE SET AND CLEARED FOR SELECTED LINE 


T103: 
MUX13: CLR JDHMCSR 


BIC #340, PS 
MOV LINE. R1 
MUX13A: MOV wCLRIUX, JOHMCSR 


MOV RI aDHMCSR 
MOV aks JDHMLSR 
CLR DHMCSR 
MUX138: CLR Re 
MOV JDHMLSR, RY 
MOVB § aDHMCSR'R3 
BIc #177760, *R3 


MUXI3C: CMP RS, RY 

MUX 13D 

MUX13D: BIS #STEP, JDHMCSR 
BNE MUX13B 


MUXI3E: MOV RI, DHICSR 
CLR JOHMLSR 
#0 


4 
MOV  JDHMLSR,RY 


MUX13F 
ERRORL 
MUX13F: SCOPE 


;REFERENCE DESIGNATION 
CLEAR CONTROL STATUS REGISTER 
ENABLE INTERRUPTS 


;SELECT LINE TO BE TESTED 
;SET REQUEST TO SEND FUNCTION FLIP-FLOP 


;READ LINE STATUS REGISTER 

; READ gree STATUS REGISTER 

CLEAR UNWANTED BITS 

:IF LINE NUMBER=SELECTED LINE NUMBER 
EXCEPT REQUEST TO SEND FUNCTION FLIP FLOP 


:TO BE SET 
:COMPARE EXPECTED AND RECEIVED 
LINE STATUS ERROR 


EXAMINE NEXT LINE 


;SET LINE COUNTER TO SELECTED LINE 
:CLEAR REQUEST TO SEND FLIP FLOP 
sDELBY FOR CABLE 


READ LINE STATUS REGISTER 
WAS RESUS! TO SEND FUNCTION FLIP FLOP 


NO LINE STATUS ERROR 
:CHECK FOR ITERATIONS, LOOP 
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) » “4 
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EE A 


LP-MAY-78 


00:54 


006.5. 
909389 


CCEi36 


13:38 


PASE 3 


T104: 
MUX14: 


MO 
MUXL4A: 


UX148: ¢ 


MUX14SC: CMP 


MUX14D: 


MUD. LSE: MO 


MUMIMF: 50 





BOS 


SE3 


THAT SECONDARY TRANSMIT de: pet FLIP-FLOP CAN 


JOHMCSR 


LINE. Rl 
Se RHUX. JOHKMCSR 


8! 
R1, JOHMCSR 


astct JOHMLSR 


MCSR 
JOHMLSR, RY 
JOHMCSR'R3 
8177760.R3 
R183 
MUXTSC 
eSECTX, RS 


RS RY 
MUX14D 


BSTEP, SDHNCSR 
MUXI4E 

RL. gOHICSE 
3OHMLSR 

80 

4 
DOHMLSR, RY 

RY 

MUX LMF 


ee ee ee we ee ree ee 


eck r F | 


BE ET AND CLEARED FOR SELECTED LIN 


;REFERENCE DESIGNATION 
:CLEAR CONTROL STATUS REGISTER 
ENABLE INTERRUPTS 


>SELECT LINE TO BE TESTED 
;SET SECONDARY TRANSMIT FUNCTION FLIP-FLOP 


sREAD LINE STATUS REGISTER 
; READ pint STATUS REGISTER 
CLEAR NTED SITS 


TTF LINE NUMSERSSELECTED LINE NUMBER, 
‘ENCEBT SECCNDARY TRANSMIT PLNGTIZN ¢ 


ad 


;10 BE SET 
COMPARE EXPECTED AND RECEIVED 


:R 
PYRE STATUS ERROR 


;EXAMINE NEXT LINE 


;SET LINE COUNTER TO SELECTED LINE 
CLEAR SECONDARY TRANSMIT FLIP FLOP 
;DELAY FOR CABLE 


DITTO 

"READ LINE STATUS REGISTER 
WAS eae ONDARY TRANSMIT FUNCTION FLIP FLOF 
CLEA 


RED 
Lit. sr 
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ee en MACYLL 


I 
1 
! 
1 
1 
i 
i 
1 
i 
: 
1 


ina 
sg 
[a 
ct 
[ a 
q@ 
i 


Z 
sts tet i 


~ 
oe 


ART EEL 
Ria Eoe 


uWuOrtutuMN 
(I ~jo- ~3~3“ICED 


1S 
w~3-3 


Oo 


Or-OALIOVOIO 
UWI OIG) £ 


“J 


ul 6 Otue ODD IU etoto 
fo 


NOOOIOIOOOYOVAVIIYAIIAINIVIOIOION NYOOOVONVIOVOONIOIAOI0O000N 
Lo) el ee] 


~O 


CAUTION UNCUT OUT UU nian 
oOo 


| el Ae ie Ad Ae el Ae Mie tel ee 


RO mMoete 


< 
MNOO£LL “NO. 


fururere 
wo 
lees 
rors 
Oo 
Cots Gath 


NOUN GIUe-OO.00 3 
Oro 


MwOoOmurwvi 
5 


on 


ur 


initia 
B 


OoOww 
-9- “JIG 


PBaNd 
JSR 


AiVOOK 
wae 
™“ 


= 
mom £OOoru 
pS ay poe ae oy 
ING 


IOO 
_ aw 


GoTUTU 


26 + > + 0+ 0 O-+ & + 0 + = © 2 0» 2 hs 2 & + eo ho 0-+ b+ b+ 0 -< + O- + 9-2 2 b= 0 Bb = Oo Be 


PREACH 


en eee ee ed ed ed ee ee ee 
TUAT EATER OALEAL OAL eal eal 
CUGI1IGICIGIGITU 

CPU Gata 


ft 


T105: 
MUXL5: 


M 
MUXISA: 





; VERIFY THAT CLEAR 2D SEND AND CARRIER ARE SET IF “LINE ENABLE” 


;AND TERMINAL ARE St? FOR SELECTED LINE. 
;REFERENCE DESIGNATION 
CLEAR _CONTROL REGISTER 
ENABLE INTERRUPTS 


R1. JDHMCSR 
nh DOHMLSR 
> é 


MUX1SB: : 
e) 


MUX15C: 


ANTED BITS 
;IF RECEIVED LINE=SELECTEC L 
EXPE*T LINE ENABLE AND 


i CLEAR TO SENO oe CARRIER ARE SET 
: COMPARE EXPECTED AND 

RECEIVED RESULTS 

:LINE STATUS ERROR 


i? oc 
| 


;UPDATE LINE COUNTER 


MUXISD: BIS 


MUXISE: 


UXISF: 


sSTEP, JDHMCSR 

R2 CONTINUE IF_ALL ree 

da, 3 NOT D eoamaies THIS L 

N SELECTED LINE 
LINE 


sEEAR TERM? NAL 
sDELAY FOR CABLE 


REAG LINE Maly ett 


vite Y CSAIL SR 


— eee ee ee 


—— 


O2DHK-o MSCY LL erivse! 
sa 


1837 
1538 
1538 
1549 

| 

| 

| 

| 

{ 

| 


010834 

S42 010634 00507; 
1543 910640 042737 
1548 QO10646 13701 
1845 O106S2 012702 
1548 O1065€ 910177 
is4? | O&S2 Ole?: 

id48 010675 305077 
15439 010674 905005 
iSO 010676 O17704 
i551 919702 117703 
i853 010706 942703 
2553 015712 020153 
i554 O10714 90102 
1555 O10716 012705 
155? Q10722 Oed40s 
1858 010724 001403 
1559 010726 104001 
S60 910730 104003 
iS6i O1973e O10734 
lSt2 910734 052777 
1563 O15742 005302 
1564 615744 901353 
i565 010746 012706 
1566 010752 010103 
1S67 010754 010177 
1568 019760 042777 
1563 01076 105227 
1570 010772 001375 
1871 016774 017705 
1S7e 011000 G20504 
$73 011002 001403 
2874 011004 104001 
1575 011006 04002 


L7-MAY-7S 


ree 
500005 
G 


177760 


000205 


CO04CO 


020001 
O05$24 
009004 
000300 


COSE0E 


OOS™16 


O0S64e 


005&20 


T10€: 
MUXIE: 


MUX LBA: 


MUX188: 


MUXi6C: 


MUXIED: 


MUXIBSE: 





DOS 
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:VERIFY THAT RING IS SET IF 
“AND REQUEST TO SEND ARE SE 
CLR JOHMCSR 

SIC #340,FS 

MOV LINE.RI 

MOV #16.,.R 

MOV R1. JOHMCSR 

MOV aL INENGSRS, JDHMLSR 

CLR 3OHM 

CLR RS 

MOV JOHMLSR, RY 

MOVB  @DHMCSR‘R3 

Ic 8177760, R3 

CMP R1,R3 

SNE MUKISC 

MOV #LINENA+RS4RING, RS 

CMP R4 RS 

BEQ MUX IED 

ERRORL 

SCOPEF 

MUX LED 

BIS 8STEP, IDHMCSR 

DEC R> 

BNE MUX1S8 

MOV #LINENA,RS 

MOV RI, 

MOV Rl: JOHMCSR 

Bic 885, JOHMLSR 

INCB 

BNE 

MOV SOHMLSR, R4 

CMP 5.R4 

BQ MUX IEE 

ERRORL 

SCOPE 


NE ENA 
R SELECTED LINE. 


TREAD tINE 


BLE” 


;REFERENCE DESIGNATION 
:CLEAR CONTROL REGISTER 
ENABLE INTERRUPTS 


316 LINES 
:PLECT A 
;SE & 


; LINE ENABLE +RS 
CLEAR CONTROL REGISTER 
LEAR OX ee TE * aad 





WMBEE 
:CLEAR UNWANTED BITS _ 
iF RECEIVED LINE=SELECTED LINE 
sEXPECT LINE ENABLE AND 


;RING IS SET 

: COMPARE Oe te AND 
;RECEIVED RESULTS 
LINE STATUS PRROR 


; UPDATE LINE COUNTER 
;CONTINUE IF ALL CHECKS 
: ARE er DONE FOR THIS LINE 
;EXB LINE ENABLE 

ON SELECTED LINE 

SEL CT_LINE 

RCE AR sEGLEST TO SEND 
eet BY FO FOR CABLE 

;READ LINE STATUS REGISTER 
ONLY LINE ae SHOULD BE 


; RROR 
CHECK FOR ITERATIONS, LOOP 








) J?-MayY-7S 

73 
1880 911010 
1881 011010 ocOoSO77 O0557 
1582 O11014 O8e737 GOO34O 1777765 
1583 011022 013701 91667 
1584 011026 Q1e7Cz 000020 
38S 911032 10177 OOSS4 
1586 011036 Qle777 000011 ocoss#e 
S87 O11044 905077 O05534 
i588 011050 005005 
1589 €1:0Se 017704 005530 
1330 011058 117703 o0SS22 
1591 011062 O4%2703 177760 
1592 611066 020103 
1833 011970 001002 
i338 011072 O12705 9600031 
1sss 
1IS3E 011076 d2040S 
1897 011100 001403 
1598 011102 104001 
1599 911194 104003 
1800 0111068 011110 
1801 011110 OSe777 coOo4co O0S46E 
1602 011116 905302 
1803 011120 001352 
1604 Qlilee 912705 000001 
1605 Oll126 010103 
1606 011130 910177 9054s 
1807 O11134 042777 000010 oc05444 
1508 911142 105227 000000 
1509 O11146 001375 
1610 911150 917704 od0S432 
1612 011154 Qe0S04 
léle QO11i56 00140) 
1613 011160 10400) 
1615 OQlll6e 104002 


T10?: 
MUXL?: 


MUXIL7A: 


MUX178: 


MUX17C: 
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EOS 


;VERIFY THAT SECONDARY RECEIVE IS SET IF “LINE ENABLE” 
;AND SECONDARY TRANSMIT ARE SET FOR SELECTED LINE. 


MUX170: BIS 


MUX17E: 


MUX17F : 


RRORL 
SCOPE 


richie 


LINE.R1 
R1, JOHMCSR 
aL INENG+SECTX, SDHMLSR 


HMLSR, RY 


MUXL?C 
BL INENA+SECTX+SECRX, RS 


RY RS 
MUX17D 


#STEP, IDHMCSR 
R2 

MUX17B 
SLINENA, 25 
R1,R 


R1' 3DHMCSR 
estCTA, SDHKMLSR 


SDM. SR, RY 
RS,RY 
MUX17F 





doy gs DESIGNATION 
CLEAR CONTROL REGISTER 
ENABLE INTERRUPTS 


316 LANES 

;SELECT A LINE 

;SET TINE ENABLE +SECTX 

TEAR CONTROL REGISTER 

CLEAR EXPECTED RESULT 

;READ LINE STATUS 

: READ CINE N NUMBER 

;CLEAR UNWANTED SITS 

:IF RECEIVED LINE= yh LINE 
sEXPECT LINE ENABLE AND 


;SECONDARY RECEIVE IS SET 
:COMPARE EXPEC ‘ee AND 
RECEIVED RESUL 

LINE STATUS ERROR 


; UPDATE LINE COUNTER 


3S LINE 
CLEAR sécoNaRY TRANSMIT 
yey FU R CABLE 


:DITTO 
READ LINE STATUS REGISTER 
; ONLY pte HIS LINE SHOULD BE 


SET ON THI 
LINE STATUS ERROR 
:CHECK FOR ITERATIONS, LOOF 








SES S0S6 





re oe MACV LL 27.732) 








00 
Qle73? 000340 
0400 


71 
022737 O00176 


104017 
104020 
O1le42 


abaees 


104021 


011262 
011252 
011256 
104014 


ogo7é2 
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FOS 


i MODEM CONTROL ON LINE TEST USING 103A hia: Oe 


PERATED_IN A A ROE 
E CONNECT AND BYSCOnN CTS = tae 
TUSING ThE MOEN CONTROL TO CONTROL 103A TYPE MODEM 


;NOTE: IF THE DM11-AA IS NOT CONNECTED TO THE 


:DISTRIGUTION PRNEL AN bie OM11 MAINTENANCE JUMPER 
4 SHOULD BE I LED J IN SLOT B1 OR B3 OF THE DISTRIBUTION 
:PANNEL TO BRE VENT POSSIBLE LON Ng SPACE : 


;DISCONNECT FROM HANGING UP THEN 


;REFERENCE DESIGNATION 


209: 
: RESET ‘INITIALIZE INTERFACE 
MOV ; b 


#S4C,PS 
TYPE YPE “103A MODEM CONNECT- 
MT103T ‘DISCONNECT Tes 
CMP : jira cnauen 


BNE 
CNTLUU 
MOV #T103A, FATRET ;SET UP FOR FATAL ERROR 
MOV #ST1038,KRET :SET UP FOR LINE CHANGE 
: GETLNS ; INPUT ORIGINATE 
:AND ANSWER LINE NUMSERS 
SETUP :SET UP TO RECEIVE INTERRUPTS 
‘WAIT FOR RING 
T1038 :G0 HERE IF RING OK 
TIO3AL :GO HERE IF NO RING 
: ERROR =NO RING WITHIN S MINUTES 
BR ST1038 :SELECT NEW LINES AND REDIAL 


: CHECK FOR RING INTERRUPT ON SELECTED ANSWER LINE 
F AN INCORRECT TRANSITION 0 CCURS THE PROGRAM 
SATU TYPE AN ERROR MESSAGE, AND THE OPERATOR 
:WILL BE REQUESTED TO Beceréct LINES AND RESIAL 


CKRING , :CHECK FOR RING INTERRUPT 
:0N Y ON ANSWER LIN 
NO TRANSITIONS ON 
:OeTgINe TE LI 
T103¢ HERE. TF-TRANSITIONS 
i BO eHE CORRECT 
T10381 GO HERE IF IN CORRECT 
: TRANSITION ON ANSWER LINE 
710382 :GO HERE IF INCORRECT TRANSITION 
ON ORIGINATE LINE 
: ERRORT : TRANSITION ERROR ON ANSWER LINE 
RTS PC CONTINUE CHECKIN 
: ERRORT ; TRANSITION ERROR ON ORIGINATE LINE 
BR ST1038 SRESELECT LINES AND REDIAL 











G o11aee 
1872 011270 


1674 01127 
1675 911300 


£30 011302 


: 
. 
i683 011304 
i 
1 


1687 011308 


16839 

1690 

1691 911310 
1632 

1893 

1694 011312 
7 ae 
1697 011314 
1698 

1899 Ol1131E 
1700 011320 
1791 Qllgee 
1702 011224 
1703 0113c6 
1704 9011330 
1705 Ol1133e 
1708 011334 
1707 011336 
1708 O1135¢ 
1709 01134e 
1710 911344 


013777 
052777 


104026 
104922 


104023 
000143 
000143 


100006 


—-QO000 
C)e— > 
Fe) Soeantadtadead 


oe 
Vo 
‘Or Or-Or ££ 
Nu 


3000 
- = 


450557 


018676 005314 
pocco2 005310 
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T103C: 


710301: 
T1030e: 
710303: 


T10304 








;SET_ TERMINAL READY ON SELECTED ANSWER LINE 
;WAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES 


MOV 
SIs 


CKINTT 
WAITRN 


LINANS , JDHMCSR 
#TRMROY , JOHMLSR 


4A LINE COUNTER 70 
ANSWER 3 hh NUMBER 

SET TERMINAL READY ON 

SELECTED ANSWER LINE 


;WAIT FOR TRANSITIONS TO OCCUR 


;CHECK_FOR CORRECT STATUS AND TRANSITIONS ON 
;SELECTED ORIGINATE AND ANSWER LINES 


CKTRAN 


CO+CS+L INENA+TRMRDY 
CO+CS+LINENA+TRMRDY 


RINGF+XCO+XCS 


XCO+XCS 


T1030) 
T10302 


* ;LINE ENABLE 


; CHECK Taz TONG #0 
!ANSWER AND ORIGINATE LINES 
;EXPECT CARRIER CLE TO SEND, 
‘LINE ENABLE AND TERMINAL 
HREADY STATUS BITS SET ON 
EXPECT CARRIER, CLEAR TO SEND, 


"AND TERMINAL 
READY STATUS BITS ON 
NATE LINE 


:0 
EXPECT CARRIER, CLEAR TO SEND 
:BNO, POSSIBLE RING TRANSITIONS 


N RL 
EXPECT CARRIER AND CLEAR 
: 70 SEND TRANSITIONS ON 


LIN 
GO HERE BN ANSWER LINE STATUS ERROR 


:GOQ HERE ON ORIGINATE LINE STATUS ERROR 
HERE ON ANSWER LINE TRANSITION ERROR 
;GO HERE ey ORI SINATE LINE Bi ERROR 


G9 H 
;G0_ TO NEXT TEST IF NO ERR 
; US ERROR 


;CO HECK ING 
‘RIGINATE LINE STATUS ERROR 
; CONTINUE CHECKING 

ANSWER . LI Vac hl al ERROR 
CONTINUE. C KING 
; ORIGINATE (ENE TRANSITION ERROR 
CONTINUE CHECKING 
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> b= 0 bbb b= bs bs bo b= ob = 2 b= = bs Bs 90 Bo bo pe he he he be pe oS 
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T1OSE: 


T1OSES: 
1$: 


















HOS 





SEG 00S9 


;SET UP TO TEST DISCONNECT SEQUENCE 
s THE PROGRAM WILL REQUEST THE wen TO TYPE A CHARACTER 


UEN 
; THE Oro MAY MANUALLY SWIT a THE DATA SETS FROM 
;DATA TO_T MODE AS_MANY Lis. AS DESIRED 
;BEFORE TH He  SUITCH SEETIN 
:ANY TRANSITIONS ee ee BURING THIS TIME WILL BE 
REPORTED BY TYPEOUT 


TYPE ;TYPE “STRIKE ANY TTY KEY 
MDISC ; TEST he a NECT” 
MOV “LOCK OUT eee on 


MOV seat. QDHMVEC ;SET UP TO DETECT TRANSITIONS 

: BEFORE DISCONRECT SEQUENCE STARTS 
MOV 8TLO3ES, RNGRET SET UF unY RETURN N FOR 
MOV BSCNENA+INTENA, JDHMCSR :SET SCAN ENABLE AND INTERRUPT ENABLE 


CLR PS ALLOW INTERRUPTS 
CLR JTKDBR 
STB aTKCSR ;WAIT FOR TTY TO HIT 
22 J 
TST JTKDBR 
MOV #340, PS sSTART DISCONNECT SEQUENCE 
CLR  dDHMCSR CLEAR CONROL REGISTER _ 
MOV LINORG, JDHMCSR “SET LINE COUNTER 10 SELECTED ORIGINATE LINE 
BIC at #TRMRDY, JDHMLSR : SET TERRINAL READY ON SELECTED LINE 





;WAIT FOR TRANSITIONS TO OCCUR 









105 
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174 
i741 ;CHECK FOR CORRECT STATUS AND TRANSITIONS ON SELECTED 

173e SORIGINATE AND ANSWER LINES 

1744 O114S6 104023 CKTRAN : CHECK TRANSITIONS. AND 

1745 :STATUS ON SELECTEC 

1746 SANSWER AND ORIGINATE L INES 

1747 o12460 000003 LINENA+TRMRDY rE PECT LINE EN cae 

174g ERMINAL READY ATus BITS 

1749 :SET ON ANSWER LINE 

1750 o114s2 000001 LINENA sEXPECT LINE ENRGLE. STATUS BIT 

1751 ;SET ON ORIGINATE 

1752 O11484 O00006 XCO+XCS SPXPECT. CARRIER. AND. CLEAR 

1753 :T0_SEND TRANSITIONS ON 

1754 SANSWER LIN 

1755 O11466 000006 XCO+XCS ;EXPECT CARRIER AND CLEAR 

1756 : 70 SEND TRANSITIONS ‘ON 

1757 SORIGINATE LINE 

1758 011470 11502 T103€1 ;G0 HERE ON ANSWER LINE STATUS ERROR 
1760 O11472 O11506 T103E2 ;G0 HERE ON ORIGINATE LINE STATUS ERROR 
1761 11474 911512 T103E3 :GO HERE ON ANSWER LINE TRANSITION ERRGR 
1762 011475 O11516 TLOBE4 :GO HERE ON ORIGINATE LINE TRANSITION ERROR 
1763 91100 O11522 TLOSEN ;G0_TO NEXT TEST IF NO ERRORS 

1764 O11502 104015 T1O3E1: ERRORS SANSWER LINE STATUS ERROR 

1765 911504 000207 RTS PC s CONTINUE CHECKING 

1765 011506 104015 T1O3E2: ERRORS SORIGINATE LINE STATUS ERROR 

1767 011510 00207 : = s CONTINUE CHECKING 

1768 O11512 104014 T103E3: ERRORT ANSWER LINE TRANSITION ERROR 

1769 011514 Oo0207 RTS PC CONTINUE. CHECKING 

1770 011516 104014 TLO3E4: ERRORT SORIGINATE LINE TRANSITION ERROR 

i72i 011520 00207 RTS PC :CONTINUE CHECKING 

1773 011522 T201: ;REFERENCE DESIGNATION 

1774 911522 104004 TIOSEN: TYPE ;TYPE ” 103A TEST. COMPLETE” 

1775 011524 017327 MT103A 

1778 011526 O0S037 019622 CLR TSTNO ;CLEAR ‘TEST NUMBER FOR LOOPING 

1777 O1i532 10402 CKINTT 

1553 BLE ObC1S? O11226 IMP = ST1038 ;SELECT NEW LINE NUMSERS AND 

1775 :RESTART TEST 





0 b= b= bs bs 92 bo ho ho be po he pe pe 
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b= b~ §~< po p> bo fe ps pe 


011602 


OL1616 


011620 
Di lbe2 
011624 
O1lée6 
011630 


911632 
O11634 





o0090S 


104017 
104020 
Q11S16 


000772 


104021 


011636 
011626 
011632 
104014 


aovee 
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i77776 


016620 


013020 
002204 








JOS 


;MODEM CONTROL ON LINE ies USING 202C TYPE MODEMS 
SANSWER STATION TO BE OPERATED IN AUTO-ANSWER MODE 

;THIS TEST VERIFIES THE CONNECT AND DISCCNNECT SEQUENCES 
;USING THE MODEM CONTROL TO CONTROL 202C TYPE MODEMS 


;ALSO TESTED ARE LINE TURN-AROUND AND 
:SECONDARY TRANSMIT-SECONDARY RECEIVE 


00: ; REFERENCE DESIGNATION 
: RESET : INITIALIZE INTERFACE 
MOV #340,PS sDISABLE ALL INTERRUPTS 
TYPE YPE “202¢ MODEM CONNECT- 
MT202T t DISCONTEET TEST" 
CMP #SWREG, SWR 
NE 1 
CNTLUU 
MOV a7egee FATRET ;SET UP FOR FATAL ERROR 
MOV 2028, KRET :SET UP FOR LINE CHANGE 
GETLNS : INPUT ORIGINATE AND 
:ANSWER LINE NUMB 
SETUP :SET UP TO RECEIVE INTERRUPTS 
‘WAIT FOR RING 
Fas) :GO HERE IF RING OK 
T202A1 :GO HERE iF NO RING 
: ERROR :NO RING WITHIN 5 MINUTES 
BR ST2028 :SELECT NEW LINES AND URED IAL 


aes FOR RING INTERRUPT ON SELECTED eae + pe 
IF AN INCORRECT TRANSITION OCCURS, THE PROGRAM 
:WILL TYPE AN ERROR MESSAGE, AND THE OPERATOR 
;WILL BE REQUESTED TO RESELECT LINES AND REDIAL 


CKRING eee FOR RING INTERRUPT 
ONLY ON ANSWER LINE 
AND NO TRANSITIONS ON 
ORIGINATE LINE 

Te0ec :GO HERE IF TRANSITIONS 
ARE CORRECT 


Te0eB1 ERE IF INCORRECT 
; TRANSITION ON ANSWER LINE 
Te0eBe HERE IF INCORRECT 
SFRANST TION ON ORIGINATE LI 
: ERRORT ANSWER LINE TRANSITION ERROR 
RTS PC :CONTINUE CHECKING 
: ERRORT ORIGINATE LINE TRANSITION ERROR 
BR $T2028 SRESELECT LINES AND REDIAL 
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Tedet: 
T2020: 


T20 

T202D1: 
RTS 

T2020e: 
T20203: 

Te02D4: 
~ RTS 





;SET TERMINAL READY ON SELECTED ANSWER LINE 


ise REQUEST TO 
OR TRANSI 


LINANS, JDHMCSR 
#TRMRDY, JDHMLSR 
LW aDHNCSR 


CO+LINENA+TRMRDY 


RS+C0+CS+LINENA+TRMRDY 


RINGF+XCO 


PC 
PC 





ND_ON SELECTED ORIGINAT 
ONS TO OCCUR ON SELECTE 


;SET LINE COUNTER 79 ANSWER LINE 
SET TERMINAL READY ON ANSWER wer 
;SET LINE COUNTER TO ORIGINATE L 

;SET REQUEST TO SEND ON ORIGINATE FINE 
;WAIT FOR TRANSITIONS TO OCCUR 


;CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
;SELECTED ORIGINATE AND ANSWER LINES 


: CHECK TRANSITIONS AND STATUS 

SWER AND 
TE LINES 

XPECT CARRIER LINE ENABLE 

TNAL READY STATUS 

BIT N ANSWER LIN 

; EXPECT REQUEST TO SEND, CLEAR 

:S GINATE ORE 

sEMECT CARRIER BND POSSIBLE 

SITIONS ON 
‘Beer CARRIER AND CLEAR 


NATE LINE 
;GO HERE jt ANSWER LINE STATUS ERROR 


E CH ECK! 
GINA TINUE cH LINE CFaTUS ERROR 
RIN Mt ERROR 


INATE LINE TRANSITION ERROR 
ne CHECKING 
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O13777 


OSe777 
04026 


1 
104022 


104023 


000133 


000167 


000001 
oo0co1 
012002 


000207 
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O16676 OO4640 T202E: 
000010 OO4634 


T202E1: 
RT 
Te0e2Ee: 
T202E3: 
T202E4: 
R 


;SET_ SECONDARY TRANSMIT ON ANSWER LINE 
;WAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES 


;SET LINE COUNTER 70 ANSWER LINE 
:SET SECONDARY RECETVE ON ANSWER LINE 


;WAIT FOR TRANSITIONS TO OCCUR 


;CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
;SELECTED ORIGINATE AND ANSWER LINES 


CKTRAN 


MOV 
ale 
CKINT 


WAT TRN 


SECTX+CO+L INENA+TRMRDY +SECRX 


SECRX+RS+C0+CS+LINENA+TRMRDY 


XSCRX 
XSCRX 
Te02E1 





LINANS, JOHMCSR 
#SECTX, JDHMLSR 


PC 
PC 
PC 
PC 





pte ECTED ANSUER ¥  aiieesons 


OR INAT NE 
sEXPECT SECONDARY TRANSMIT 


0 
360 ne ON ORIGINATE LINE TRANSITION ERROR 
NEXT TEST _IF NO ERRORS 
ANSLER oe - ERROR 
I TINUE. Po SATUS ERROR 
aoe ie on ERROR 


ORIGINATE LENE TRANSITION ERROR 
CONTINUE CHECKING 
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4 
S 
& 
7? OQledee 
8 
3 
0 
iass 012054 
1927 012056 
1930 012060 


1933 Ole0be 


1936 012064 


194] 

1942 012070 
i843 012072 
1944 012074 
1945 012076 
194 012100 
1947 Qi2102 
1948 012104 
1948 012106 
1950 O1e110 
1951 Ollie 
1952 012114 
1953 Oleile 
1964 012120 
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000003 
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016674 
000004 
016676 
000010 


oo4sS4 
O04SS0 
004S40 
004534 


SE@ 0064 


;DROP REQUEST TO SEND ON ORIGINATE Lt 


;DROP SECONDARY Teena 


:WAIT FOR TRANSITION 


T ON ANSWER 
Q OCCUR ON S i TED LINES 


T202F: MOV LINORG, JDHMCSR ;SET LINE COUNTER 19 ORIGINATE LINE 
SIC #RS, JDHMLSR ; DROP REQUEST 
MOV CTNANS, JDHMCSR *SET LINE COUNTER a ANSWER LINE 
BIC 7 HOECTX, @DHMLSR :DROP SECONDARY RECEIVE 
WAITRN ;WAIT FOR TRANSITIONS TO OCCUR 
:CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
:SELECTED ORIGINATE AND ANSWER LINES 
CKTRAN sCHECK TRANSITIONS AND STATUS 
:ON SELECTED ANSWER AND 
ORIGINATE LINE 
LINENA+TRMRDY EXPECT ine ENABLE AND 
: TERMINAL READY STATUS BITS 
:SET ON ANSWER LIN 
LINENA+TRMRDY *EXPECT LINE ENABLE A 
TERMINAL READY STATUS SITS 
:SET ON ORIGINAT 
XCO+XSCRX sEXPECT CARRIER AND SECONDARY 
RECEIVE TRANSITIONS 0 
‘ANSWER LINE 
XCO+XCS+XSCRX *EXPECT CARRIER CLEAR TO SEND 
“AND SECONDARY RECEIVE 
: TRANSITIONS ON SRT INATE LINE 
T202F2 °GO HERE ON ANSWER LINE STAATUS ERROR 
T202F 3 ;GO HERE ON CRIGINATE LINE STATUS ERRORO 
T202F4 :GO HERE ON ANSWER LINE TRANSITION ERROR 
T202F5 GO HERE ON ORIGINATE LINE TRANSITION ERROR 
T2026 :GO TO NEXT TEST IF NO ERRORS 
T202F2: ERRORS : ANSWER LINE STATUS ERROR 
7 TS PC CONTINUE C 
T202F3: ERRORS : ORIGINATE LINE STATUS ERROR 
TS PC : CONTINUE 
T202F4: ERRORT : ANSWER LINE "TRBNSITZON ERROR 
TS PC :CONTINTUE CHECK 
T202FS: ERRORT : ORIGINATE CINE TRANSITION ERROR 
RK.S PC -CONTINUE SRECKING 
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016676 OO44SY Te0eG: 
oooco4 dc044S0 


T 
T202G1: 
Te02Ge: 
T202G3: 

RT 
Te02G4: 

RT 


;SET REQUEST TO SEND CN ANSWER LINE 
WAIT FOR TRANSITIONS ON SELECTED LINES 


LINANS, JDHMCSR 
#RS, JDHMLS 


MOV 


BIS 
CKINTT 
WAITRN 


;CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
SELECTED ORIGINATE AND ANSWER LINES 
CKTRAN 


RS+C0+CS+LINENA+TRMRDY 


CO+LINENA+TRMRDY 


XCO+XCS 


xCO 
Te02G1 





PC 
PC 
PC 
PC 





;SET LINE COUNTER 19 ANSWER LINE 
;SET REQUEST TO SEND 


;WAIT FOR TRANSITIONS TO OCCUR 


iON st TRANSITIONS 5 AND STATUS 


NATE 
XPECT LINE etree NOY CLEA 


LE 

10 1 ind o SITIONS ON 
sENPECT ERagTER ER_ TRANSITION 

E ON ANSWER LINE STATUS ERROR 


TION OR 
HERE garg tNe Te ot ht TRANSITION ERROR 
TES Q ERRORS 


ET 
NSWER LINE TRANSITION | ERROR 


E TESTING 
RIGINATE LINE TRANSITION ERROR 
t CONTINUE TESTING 
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Sey eSECONDARY TRANSMIT ON ORIGINATE LINE 
T FOR TRANSITIONS TO OCCUR ON SELECTED LINES 


T2024: MOV LINORG, JDHMCSR ;SET LINE COUNTER 702 ORIGINGTE LINE 
a tart aSECTX, dDHMLSR :SET SECONDARY TRANSMIT 
CKI! 
WAITRN WAIT FOR TRANSITIONS TO OCCU! 
CHECK FOR CORRECT STATUS AND TRANSITIONS ON 
SELECTED ORIGINATE AND ANSWER LIS ES 
CK TRAN sCHECK TRANSITIONS AND STATUS 
:ON SELECTED ANSWER AND 
at. s OR TEANATE LINES 
RS+CS4+CO*+L INENR}TAMRD 7 +SECRY ex XPECT LINE ENABLE, TERMINGL 
READY Rega re SEND, CLEAR 
AND Rb SecoREaRY 
De CET STATUS Bites ET 
3;0N ANSWER LINE 
SECTK*+CO*LINENA+TRMRSDY+SECRX EXPECT CINE ENABLE, TERMINAL 
; EADY, CARRIER. SECONDARY 
NSMIT_AND SECONDARY 
“RECEIVE STATUS a SET 
30N ORIGINATE LINE 
xSoRX EXPECT SECONDARY RECEIVE 
: TRANSITION ON ANSWER LINE 
XSCR» XPECT SECONDARY RECEIVE 
SR ENSITTON ON ORIGINATE LINE 
T20eH2 re HERE ON ANSWER LINE STATUS ERROR 
T202H3 O HERE ON ORIGINATE LINE ps entts ERROR 
Te0eH4 3s HERE ON ANSWER LINE TRANSITION ERROR 
Ted2hs ey RE ON 0 TE LINE TRANSITION ERROR 
340 TO NEXT TEST NO ERRORS 
T20eH2: ERRORS : ANSWER LIN STATUS ERROR 
RT PY :CONTINUE CHES 
T202H2: ERRORS ;ORIGINATE LINE STATUS ERROR 
RTS PC s;CONTINUE CHECKING 
Te0eks: ERRORT sANSWER LINE TRANSITION ERROR 
RT PC ;CONTINUE CHECKING 
T202HS: ERRORT : ORIGINATE LINE TRANSITION ERROR 
RTS ee Sa NTINUE CHES TRING 
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;OROP REQUEST TO SEND ON ANSWER LINE 








| i :WAIT FOR TRANSITIONS TO OCCUR ON SELECTED LINES 
Do42 O12272 OL3TT? OLs67S 004304 T2021: MOV L INANE. JOMMCSR :SET LINE COUNTER 79 ANSWER LINE 
S943 612308 O4e77? 800004 904300 BIC RS, ZOHMLSR : CLEAR RE QUES? TO sé , 7 
B44 S1e30— Oisr7? O1se7Y 04270 MOV LTNORG, SOHMCER :SET LINE COUNTER 76 ORIGINATE LINE 
eO4S Olesi4 O4e77? 800510 ddees4 BIC BSECTX: JDHMLSR :CLEGR SECONDARY TRANSMIT? 
2048 012322 108026 CKINTT A 
Sat fizse4 1040e2 WAITRN :WAIT FRO TRANSITIONS TO OCCUR 
EeUYT : 
2048 ;CHECK_FOR CORRECT STATUS AND TRANSITIONS ON 
3550 :SELECTED ORIGINATE AND ANSWER LINES 
esl 
2052 012328 104023 CKTRAN :CHECK TRANSITION S$ AND STATUS 
2053 :ON SELECTED ANSWE AND 
2054 | ; : ORIGINATE LINES } 
2055 012230 000003 LINENA@+TRMRDY s EXPECT LINE ENABLE AND 
2556 ;TERMINAL READY STATUS BITS SET 
2057 !ON ANSWER LINE 
2058 012332 000002 LINENA+TRMRDY EXPECT LINE ENABLE AND __ 
2055 TERMINAL READY STATUS SITS 
2065 SET ON ORIGINATE LIN 
2061 012334 oo00g7 . XCO#KCS#XSCRX “EXPECT CARRIER TO SENC 
e086 sD SECONDARY be SFE TRANSITIONS 
2084 012336 oodcos XCO+KSCRX sEXPECT CARRIER AND SECONDARY 
2285 sRECEL VE TRANSITIONS ON 
20es  ORIGI & LINE 
| BOE? 312349 o12e3S2 T20212 :G0 HE Re 5N ANSWER LINE STATUS ERROR 
| 2068 312342 912256 720213 :G0 HERE ON ORIGINATE LINE | STATUS oReoR 
| EES 31344 012362 T2024 G9 HERE ON ANGKER LINE TRANSIIIN ESeCe 
| 2970 Sl2346 012366 T20eIS 330 HERE ON ORIGINATE ENE TRANSITION ERROR 
| BO7l O12350 612372 Te0es 760 10 SEXT TEST IF NO ERRORS 
| 2972 612362 104015 T202I2: ERRORS : ANSWER LINE. sraTus ERRO! 
| 2073 012354 000207 RTS PC s CONTINUE CHE 
| BOTS O1236— 1Osdis T20212: ERRORS : ORIGIN cabs "SiaTus ERROR 
| 2875 012260 990207 PC CONTINUE CHECK 
| 2575 12362 104014 T202T4: ERRORT : ANSWE CINE FSOMSS TION ERROR 
| 2977 12364 o00207 _* RTS PC :CONTINUE CHECKING 
| 2072 E1236 106014 T202I5: ERRORT ORIGINATE LINE TRANSITION ERROR 
| 867§ 618370 S6c207 RTS Po -CONTINUE CHECKING 
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#340. PS 
seantye. DOKMVEC 
sT20275, RNGRET 


BSCNENA+INTENS, DDHMCS® 


2 


m 


:DISCONNECT SEQUENCE & 


DHMASR 
LINORG, JDHMCSR 
BTRMROY, SDHMLSR 


oe eee ee ee 


>SE Q TEST DISCONNECT SEQUENCE 
; THE nad WI Rg a Mf TO TYPE A CHARACTER 


WITCH THE wre SETS FROM 
DESTRED 


; SEF ORE 
S ANY TRANSITIONS RETESTED DURING THIS TIME WILL SE 
REPORTED BY TYPEOUT 


; TYPE "STRIKE ar TTY KEY 


; NNER 
: ENABLE FNTEREUPTS 


LOS ok QUT — 
:SET LINE COUNTER TO SELECTED 


Ld iGTT FO —] TRANSITIONS FA AAA i=) 


~~ ewe 





ORIGINATE LINE 
SET Laima READY ON SELECTED LINE 


. 
. EL 





= 0+ b* bbe be 08 B 2 be he be be Pe * 8 Phe bo Oh bt hh hp ep a pe 


forururururorurururofrurururufrururururu furor rurorurormrrnrrrrrn 
oe ee SRQESRRE RSS RUNH PUlumte o-- 0-9-0 --9-« 
NUE Wore ODO DONMULE - DMO LCs OWW IT UE 


ae re rn ne 
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21l3 


012504 
012508 


012510 
OleSie 
012514 


515826 
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4004 
337356 
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Oro OO 
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T202J1: 


;CHECK FOR CORRECT STATUS AND TRANSITIONS ON SELECTED 
;ORIGINATE AND ANSWER LINES 


;CHECK TRANSITIONS e STATUS 
3H SELEC owe NO 

CT LINE ENABLE AND 
ST ERNTNAL READY STATUS BITS 
SET ON ANSWER 
EXPECT LINE ENABLE STATUS 
:81T SET ON ORIGINATE LINE 
EXPECT NQ TRANSITIONS ON 
; ANSWER LNs 
2. aetna 2.1 LN son ON 


ae if SEL 


NE STATUS ERRCR 

LINE STATUS ERROR 

HERE IF ANSHER LINE TRANSITION ERROR 

TE LINE i ONS ERROR 


NATE “LINE STATUS ERRROR 
LINE Mc la ERROR 


Aue CHECK 
i SRIGINATE LINE TRANSITION ERROR 
CONTINUE CHECKING 


C TEST COMPLETE” 
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0+ 0+ b= b+ b= 0&2 bo bo be 0 00 2 be Be bo Bt bw Be 0 B= b-* bo bo he = 2 2 Be b8 0 8 8 bo he ho be Pe bo he 
Wr--Ow 


int cuMer-OwomMnIMm 


6.0.0 





732) 


sc 


000471 


032704 


052737 
032704 


001403 
052737 
032704 
001044 


LOSO1& 
000434 


17-MAY=-76 


OO401& 


177760 
016674 


016876 


00377 
003766 


100000 


000610 
040090 


099904 
020009 


000092 
010000 


000991 
170090 


TRANS: 


ORGTR: 


ORSTRI: 
ORGTRe: 
ORGTR3: 


ORGTR4: 


ORGTRR: 


FOG 
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;DETECT AND RECORD TRANSITIONS ON SELECTED 
;ORIGINATE AND ANSWER LINES 


; TRANSITION DATA IS STORED IN LOCATIONS ANSFLG& AND ORGFLS 


;FOR ANSWER AND ORIGINATE LINES RESPECTIVELY 
;FORMAT OF DATA IS (FOR BOTH LINES) 


eo ee RECEIVE CAUSED Lal 
» CLEAR TO SEND CAUSED INTERR 
1, CARRIER CAUSED INTERRUPT 
1, RING CAUSED INTERRUPT 
MOV QDHMCSR, RY ;GET LINE NUMBER AND 
INTERRUPT FLAGS 


MOV 
BIC 210 77¢0 RS sEXTRACT LINE NUMBER 
CMP INORG, RS 3D1D ORIGINATE LINE INTERRUPT 
BE SROTR iF AY YES 
CMP LINANS, RS ERaueR CINE INTERRUPT 
BE ANSTR so3° YES, SERVICE 
MOV RS. JDHMCSR 
MOV JOAMLSR , R3 
ERRORN s INTERRUPT ON INCORRECT LINE 
R FATEX 
sRECORD TRANSITIONS FOR ORIGINATE LINE 
BIT aRINGE RY :IF RING CAUSED INTERRUPT, 
BEQ ORGTR1’ :SET RING TRANSITION SIT 
BIS #10 ORGFLG 
BIT OF. R :IF CARRIER CAUSED INTERRUPT 
BEQ SeoTRS :SET CARRIER TRANSITION SIT 
BIS 84 ORGFLG 
BIT acSr, :IF CLEAR TO SEND 
:CAUSED INTERRUPT 
REQ ORGTR2 :SET CLEAR TO SEND 
: TRANSITION BIT 
BIS #2, ORGFLG 
SIT BSECRXF 24 :IF SECONDARY RECEIVE 
:CAUSED INTERRUP 
SEQ ORGTRY "SET SECONDARY RECEIVE 
BIS #1, ORGFLG : TRANSITION SIT 
BIT RINGF+COF+CSF+SECRXF RY" we < 
:IF NO INTERRUPT FLAGS SET 
BNE TRANEX *EXIT TRANSITION DETECTION 
ERRORN 


FATEX 








SE3 0076 








DZOMK=C_MACY11 
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100000 
900010 


040000. 


009004 
020000 


Pane: 


oocood 


016724 
009140 


003536 
003532 


018700 


016700 


016700 


016700 


003544 





ANSTR: 


ANSTR1: 


ANSTR2: 
ANSTR3: 
ANSTR4: 
BNE 
ANSTRR: 
FATEX: CLR 
FATRET: 0 


;EXIT TRANSITION DETECTION 
TRANEX: 


TRANX1: 


TRNTAB: 


#1. ANSFLG 
#RINGF+COF+CSF+SECRXF RY’ 


RNGRET (=P) JOHMCSR 


; TYPE TRANSITION DATA AND RETURN 
TRNTYP: 
M 


DEM eR BaTae 


;RECORD TRANSITIONS FOR ANSWER LINE - 
ger ING TRANSITION BIT 


;1F CARRIER CAUSED INTERRUPT 


;SET CARRIER TRANSITION BIT 


:IF CLEAR TO SEND 
;CAUSED INTERRUPT 
:SET CLEAR TO SEND 
TRANSITION BIT 


;IF SECONDARY RECEIVE 
;CAUSED INTERRUPT 
:SET SECCNDARY RECEIVE 
; TRANSITION BIT 


;IF NO_INTERRUPT FLAGS SET 
EXIT TRANSITION DETECTION 


;1F RING FLAG WAS SET 
SET UP SPECIAL RETURN 


;RESTART SCANNER 




























HO6 
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ZDHKE.Pil 


2246 ; INPUT ORIGINATE AND ANSWER LINES FROM TELETYPE KEYBOARD 


2248 013102 000005 GETLIN: RESET 
2e42 913104 104013 INSTRG ;TYPE “ORIGINATE LINE-” 
2250 013106 O17264 MSELOR “AND GET LINE NUMBER 

2251 012110 900000 9 

eeSe Ol31i2 000017 ? 

2253 013114 O16674 LINORG 

2254 913116 104013 INSTRG :TYPE “ANSWER LINE-" 

2255 913120 017310 MSELANS “AND GET LINE NUMBER 

2256 O13122 300900 9 

2257 013124 900017 17 

2258 013126 OL6676 LINANS 

2259 013130 104004 TYPE 

2268 013132 917720 MCRLF 

2261 013134 od0cb2 RTI sRETURN TO CALLING ROUTINE 
ae63 s INITIALIZE INTERFACE 

2265 013136 o00005 SETUPS: RESET 

2266 013146 012737 000340 17777 MOV #340, Ps ;LOCK OUT ALL INTERRUPTS 
ecb? O13146 O11605 MOV 

2268 013150 012527 014036 MOV (asd AXTTS 

2269 013154 012537 O14O16 MOV (RS5)+ ERR} 

2270 913160 O1051s MOV RS, (SP) 

2271 013182 012777 oo6000 002414 MOV RELRSCNCLANL, SOMNCSR ;CLEBR LINE. SCANNER AND Mu TIPLEXER 
e272 013170 032777 600020 003406 SETUPI: BIT #BUSY, JDHMCSR :WAIT FOR SCANNER TO CLEAR 
2273 913176 901374 r BNE SETUP 

eer 013209 905937 o1662e4 CLR PRRFLG 

2276 . pENABLE SELECTED LINES 

ad :SET TERMINAL READY ON SELECTED ORIGINATE LINE 





Se 013204 013777 016674 003372 SETUP2: MOV LINORG, JDHMCSR 5 ee pete ad aie LINE 
e281 Ol3s2l2 012777 000002 CO3366 MOV #LINENA+TRMRDY,@JDHMLSR ;SET LINE ENABLE AND 
e282 ; TERMINAL READY ON ORIGINATE LINE 
2283 013220 013777 016676 003356 MOV LINANS , JOHMCSR 3 ET LINE COUNTER TO ANSWER LINE 
ssa Olsee6 012777 000001 003352 MOV #LINENA, JOHMLSR ;SET LINE ENABLE ON ANSWER LINE 
ec86 fa OPERATOR TO DIAL SeLEcrED ANSWER TERMINAL 
2287 :SET TO RECEIVE INTERRU 
scee ‘tart "LINE SCANNER 
2290 013234 012777 OleSbe 003336 MOV #TRANS , JDHMVEC SET UP INTERRUPT VECTOR 
2291 FOR TRANSITION DETECTION 
eeS2 O1324%2 012777 900340 003332 MOV #340, a SET UP INTERRUPT SERVICE LEVEL 
| e€293 Q13e50 012777 000140 003326 MOV ASchENee INTENR, JDHMCSR 9 ;START SCANNER, ENABLE INTERRUPTS 
2294 Ol3e56 005037 016700 CLR :CLEAR TRANSITION DETECTED FLAGS 
2295 Olsebe 005037 016702 CLR ORCE re 
2296 013266 012737 013316 016724 MOY #SETUPY, RNGRET ;SET_UP RETURN FROM 
| e297 :DETECTION OF RING INTERRUPT 
2298 013274 104004 TYPE REQUEST OPERATOR TO DIAL 
2299 O13e76 017104 DIALM 
2300 013300 COS037 177776 CLR PS ;CLEAR PROCESSOR STATUS WORD 


ZOHK=C_MACYL1 276732) 
DZDHKC .P 


QOOOOVVOVIVOVOVOVOOOOH ~ 
- cone - 


YONOOVOOVOOVHOVOVMNOOVOVION0NOHNO 
0-= b= 2 bb bs be bb ee he he 
tata @ 


00593? 





018704 
O16 
018702 
016704 
018706 


oco44e 


OOo4S4 
069340 


914036 
014016 
014020 
000019 
016700 
016676 
000360 


016702 
016674 


003326 
000346 
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201090 018708 


;CHECK FOR RING INTERRUPT ON SELECTED ANSWER LINE 












SEQ 0073 








TINE 
aNePLG iF, tM Fy WEP b, 
SETUPB sEXIT WAIT -LOOP 


TIME1 ;ALLOW OPERATOR S MINUTES TO DIAL 


TS 
#340, +2(SP) 





(SP),.RS 
(RS)4. NXTTS 
(R5)+, ERR} 
(RS) +, ERRO 
RS (SP) 
sEXPECT RING ONLY ON BNSHER LINE 
Anstle, RY :GET ACTUAL TRANSITION DAT 
LINANS; R3 SET UP LINE NUMBER 
RS RY :DID RING, Cruse INTERRUPT 
CKRNG1 ANSWER LINE 
PC, JERR1 
RS’ 
ORGFLG, RY 
LINORG.R3 
RY :IF TRANSITION OCCURED 
CKRNG2 :ON ORIGINATE LINE, ERROR 
JERR 
QNXTTS 









Rohan MaCcY11 

DZDHKC.P11 
2340 m 
2341 013470 
one Oi 3474 
sau Siete 
2345 
e346 013514 
2347 013522 
2348 013526 
2349 01353e 
e350 013540 
2351 Q13544 
2352 913546 
2353 013552 
2354 €13554 
2355 
2356 
2357 
2358 
2359 913556 
2360 913564 
2361 013576 
e362 013572 
e363 013576 
2364 013602 
2365 013606 
2366 013612 
e367 O13616 
2368 913622 
2369 013626 
2370 013632 
2371 013636 
2372 013640 
e373 013644 
2374 013652 
2375 013656 
2376 013662 
2377 013664 
2378 O13666 
2372 013672 
2380 013700 
2381 013704 
2382 013710 
2283 013714 
2284 O13716 
2385 913720 
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016700 
016702 


BiSESE 0 


ese 


016704 
016706 


000340 
003014 


014026 


014936 
014026 


016674 


000974 


WAITR: 


Te7ea 
003062 


WAITRR: 
WAITRI: 


016706 


177776 CKTRN: 


002732 


002704 CKTRNI: 





;CHECK FOR CORRECT STATUS AND TRA! 
;SELECTED ORIGINATE AND ANSWER LI 


JO6 


ners 


eT 


ima ialtna tens ccnsen weit. 


TIME! 
#25. TIMES 
TIMEL 
WAITRI 
TIM 


E 
WAITRI 


2 a oe ~ 
DUWIDADADADADDDADDwW 
=. WUIUIUIUMI Un ut 


poate Soucsr 
OHMS SRR 

LINANS o"a5 

RS.RY 

CKTRNI 


PC, JERRI 
L INORG JDHMCSR 
aDH NLSRRY 


CKTRNe 
PC, JERR 


;SET UP FOR RETURN 
sFROM RING DETECTICN 
START SCANNER 


;WAIT FOR TRANSITIONS OF 
CARRIER AND CLEAR TO SEND 


TIONS ON 


NE SCANNER 





tt FURTHER INTERRUPTS 


:SET LINE COUNTER TO ANSWER LINE 
;GET ACTUAL ANSWER LINE STATUS 


; COMPARE 


;SET LINE COUNTER TQ ORI 
:GET ACTUAL ORIGINATE LI 


; COMPARE 


G 
N 


I 
e 


NA 
S 


TE_LINE 
TATUS 


SEQ 0074 














DZDHK 

DZDHKC.P11 
23 
2387 
2388 
2389 
2390 013724 
2391 013730 
2392 013732 
2393 013740 
2394 013744 
2395 913750 
239 013754 
2397 013756 
2398 013750 
2399 013764 
2400 013770 
2401 013774 
2402 014000 
2403 ol40ce 
2404 014004 
2405 O14010 


2415 14036 


me MACYLL 27(732) 


105737 


o0c0000 


014033 
009010 
0 


016676 
000036 
016674 


000014 
000020 


016700 
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CKTRNe: 


CKTRN3: 


CKTRN4: 





KO6 


;CHECK FOR CORRECT TRANSITIONS ON 
;SELECTED ORIGINATE AND ANSWER LINES 


DATA3+1 
-+10 

#10, ANSFLG 

ANSFLG RH :GET TRANSITION DATA FOR 

sDID CORRECT TRANSITIONS OCCUR 


PCa) 
ORUELG RY ;GET TRANSITION DATA FOR 


;DID CORRECT TRANSITIONS CCCUR 


PC, JERRY 
ANXTTS 





SEG 0075 











DIDHK=-C MACYL1 271732) 
DZDHKC.P1) 


000137 


011646 


062716 
017616 
000136 
105777 


Ol4ib2 00002 
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016630 
000001 


016722 
Ol67e2 


009042 


014334 


o0060e 
oocco0 


177001 


020324 
o0oco0 


002432 


016632 


;END 0 


ASS 
‘DPDATE PA SS COUN 


; TYPE END OF PASS "wessace 


EOP: 


1$: 


LOGICAL: 


ENTSRV: 


EMTOK: 


CKINT: 


INC PASCNT 
OV #1, TSTNO 
RESET 
CLR FILLA 
DEC FILLA 
BNE 1$ 
TYPE 
MEPASS 
OV 42. R1 
EQ TSTENT :NO 
RESET 
JSR PC, (R1) 
NOP 
NOP 
NOP 
NOP 
JMP TSTENT 


;EMT DISPATCH SERVICE 
ARGUMENT OF EMT IS EXT 


AND USED AS 

>TO SELECTED SUBROUTINE 
MOV (SP), -(SP) 
SUB #2, (SP) 

MOV a(SP), (SP) 
ASL (SP) 
BIC #177001, (SP) 
ADD gENTTAB (SP) 
MOV (SP) 
IMP Step By 

TSTB  aTKCSR 

PL 1$ 


SEQ C076 


;UPDATE PASS COUNT 
; START AT FIRST TEST OF GROUP 
THE WORLD 


sSoUNT T THE CTR 
R TIL STALL TIMES OUT 
: RING BELL 


;ARE YOU ON ACT11? 


;GET ADDRESS OF FIRST TEST 


RACTED 
OFFSET TO OBTAIN POINTER 


ef PC OF sald ata 
PC OF EMT 


. MT 

sMULTIPLY EMT ARG BY 2 

“CLEAR UNWANTED BITS 

‘POINTER TO SUBROUTINE ADDRESS 
: SUBROUTINE ADDRESS 

:G0 TO SUBROUTINE 








ZOHK-C_MACYL1 271732) 
DZDHKC.P11 





014164 005737 


oo0004 


014330 
014334 


177776 
000100 
016624 
ode0to 
040000 
004C60 
016636 


016634 
000109 


016622 
016632 


016564 
016634 


016636 
016624 
000100 


000001 
o0o74e 


014410 
OL4414 


005737 
001413 


016624 


17-MAY 


001eSe 
000064 


o00004 
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000004 


002340 


002334 
002324 
002314 


002262 


002212 
016636 







MO6 





SEQ 0077 









sEND OF SUSTEST SERVICE 
+ K FOR 


; OR_ESCA ON_ERROR 

SOPDATE ITERATION COUNT AND EXIT TO NEXT TEST IF O 
; TEST XIR FLAG (XFLAG) FOR EXISTANCE OF XOR TESTER. 
XFLAG ;IS THERE AN XOR TESTER OUT THERE ” 










LOOP: 






















BPL 4S py 
MOV 4 =(SP) :SAVE 4 
MOV 1$.4  :SET UP SVC ROUTINE 
TST 177060 ;GOT SOMETHING UEIKE SLAVE SYNC 
Nov (SP)+,4 -YOU BETCHUM 
1$: Popesp sRESTORE STACK 
HOV (SP)+,4 RESTORE 4 
23: IMP LOOPX ;G0 TO NEXT TEST 
$3: JMP TSTENT :G0 
CLR PSW 
BIC #INTENA, JTKCSR 
Ss: TST ERRFLG :IF ERROR OCCURED FLAG=1 
_ BEQ LOOPS :CHECK FOR ESCAPE TO neXt TEST 
BIT #SW10, ISWR IF SW10=1 
BNE LOOPX ; ESCAPE 70" NEXT TEST 
LOOPS: BIT #SW14, ISWR IF SW14=! 
BNE LOOPL :LOOP ON CURRENT TEST 
BIT #SW11,aSWR IF SWil=! 
BNE LOOPX INHIBIT ITERATIONS 
DEC ICOUNT ‘UPDATE ITERATION COUNT 
BEQ LOOP x :IF ICOUNT=0, GO TO NEXT TEST 
LOOPER: MOV RETURN :SET UP FOR RETURN TO CURRENT TEST 
BIC SINTENA, ST XCSR 
RTI sRETURN TO CURRENT TEST 
LOOPX: INC TSTNO :UPDATE TEST NUMBER : 
TSTENT: MOV TSTNO,RS :GET TEST NUMBER 
Bol RS :MULTIPLY TEST NUMBER BY 4 
ADD TSTPNT,RS :GET POINTER FOR TEST ENTRY 
MOV (RS) , RETURN 






GET STARTING ADDRESS OF ps i TEST 
BEG EOP ;IF_ADDRESS=0, GO TO END OF PASS 













MOV (RS)+, (SP) :PUT STARTING ADDRSS ON STACK 
MOV (RS) ICOUNT :GET ITERATION COUNT FOR TEST 
CLR ERRFLG :CLEAR ERROR OCCURED FLAG 
BIC #INTENA, JTKCSR 
RTI :GO TO TEST 

LOOPL: MOV #1 JCQUNT :SET UP TO EXIT TEST AFTER LOOP 
BR LOPE °GO TO LOOP SERVICE 
:CHECK FOR LOOPING WITH SAME DATA 
CHECK FOR ESCAPE TO NEXT TEST ON ERROR 





FREEZE: TST 


BEQ 


ERRFLG 
FREEZX 


;IF ERROR FLAG=0, 
:00 NOT TEST FOR ESCAPE 











ee 


DZDHK-C_MACYL1 27(732) 


DZDHKC.P11 
2515 O14416 


eSee O144S0 


032777 
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002000 
001000 
oco009 
000002 


002174 
002164 


FREEZX: 


NO6. 


#SH10, aSHR 
ASO, ISHR 
2(SP), (SP) 


#2, (SP) 


;IF SW1O=1, 
ESCAPE TO'NEXT TEST 


‘FREEZE CURRENT DATA 
!GET LOOPING ADDRESS 


‘CONTINUE IN CURRENT TEST 


SEQ 0078 





antentertey 


OPFUDTUpTesTrse ere eantesterCepCere eae eprerrentententey 


avy 


*CRDOOD~ IP UE C30) +O OU OU 


Fein Ciofus to nte rin Ee ine 


’ 
CAUNONUIICAICICICOLOT ONO CACO 
COOP 6 Gofue- Cnn onan 





BU? 
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;GENERAL ERROR SER Ive 
sONLY PC OF FAILING TEST IS OUTPUT TO TELEPRINTER 


16624 ERR: CLR ERRFLG ALWAYS TYPE &C+e 
3 OF Test’ THAT Corker 


a8, sas 5 
_ 


wd: 


O0S037° 014672 LR ERRMSG 3NQ MESS 
DOSO3” =014"04 Cun ERTAS 3NO_TA ALE OF DATA 
BOO4S! SR ERRGEN :OUTPL JT ERROR MESSAGE 


; TRANSITION DETECTION ERROR SERVICE 
;FORMAT FOR ERROR TYPEOUT 
XXXXX TRANSITION ERROR 
REC LINE 
a 8B ze 
;WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 


: ARASEXPECTED INTERRUPT FLAGS (CORRESPONDS TO 4 MSG OF CONTROL REGISTER 
: BG=RECELVED ga FLAGS (AS ABOVE} 





COSOs? O18624 ERRT LLR ERRFLG ALWAYS OUTPUT at DATS 
Sle’27 017045 014672 MOV aMTRANE, ERRMSG ; TYPE *TRANSITIO N ERROS 
Ole737 O14760 O14704 MOV sERTABL ERTAS OF AT 
COO+40 58 ERRGEN Out PUT ERROR MESSAGE 

ON-LINE STATUS ERROR SERVICE 

FORMAT FOR LINE STATUS ERROR [IS 

:XX\X LINE wa: 

sEXP REC LINE 

;RRR =O BBG 

;WHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 

; ARRSEXPECTED LINE STATUS AT TIME OF ERROR 

: BES=RECEIVED L if STATUS AT TIME OF ERROR 

; CCSLINE ON WHIC WH ERROR OCCURED . 
005037 Olb6e4 ERRS: CLR ERRFEG WAYS OUTPUT ALL DATA 
Ole737? 037014 014672 MOV SMLINE1, ERRMSG ityBE “LINE ERROR 

sEXP REC LINE” 

512737 OL477— OL4S704 MOV sERTAS2 ERTAS TABLE OF DATS 
000% 27 SF RGEN sOUTPUT ERROR NESSSGE 













CO? 
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BR ERRGEN 


2568 ; 
3570 :FATAL_ TRANSITION ERROR 
eo71 ;FORMAT FOR FATAL ERROR TYPEOUT IS 
és: 
2373 :XXXXXX FATAL ERRCR 
3675 S78: LSTAT 
3525 aaaA 888 
2577 ERE poonor=pe se of SAL TQ ERROR ROUTINE 
=575 RAAAAASRECEVICES CONTEOL 5 *ATUS ON LINE THAT INTERRUPTED 
e03 SSESRECEIVED LINE ScATLE SN LINE THAT INTERRUPTED 
e581 Q14534 Q0S237 f188e ERAN: LP ERRFLG sSLWAYS OUTPUT 6LL DATA 
epee C1450 C1EPG7 BiF77s o1sere MOV SMFATAL, ERRMSG TIPE "FATAL ERPOR 
= ty ) 
Bey 1446 127327 ISOI4 OL4TO4 MOV —-BERTAB3, ERTAB TABLE OF DATA 
gees SiSs~ SOD4i6 36 ERRGEN :OUTPUT ERROR MESSAGE 
2587 "CONTROL STATUS” ERROR SERVICE 
552 TFORMAT FOR CONTROL STATUS ERROR IS 
es3o s;XXXXXX STATUS ERROR 
es3i :EX 
2532 ;RAeeAR BBSR88 
| 25 {HHERE 1NO0O'SPC+2 OF CALL 12 ERROR ROUTINE 
| es ; RASEXPECTED CONTROL STATUS AT TIME OF ERRCR 
| e238 SORSSS=RECEIVES (ACTUAL) CONTREL STATUS AT TiSE OF ERROR 
2539 | 
2592 CINSSE 012737 DIETS CIYE7Z ERRCS: MOV SMISTATE, ERRMSG s TYPE SSTRTUS ERROR 
| S601 Ci4s64 012737 015026 014704 MOV  - #ERTABS ERTAR :TASLE OF DATA 
| ge0e 014572 800407 SR ERRGEN :QUTPUT DAT 
| oeo4 ;LINE STATUS ERROR SERVICE 
2558 ;FORMAT FOR LINE STATUS ERROR IS 
| Bede ;XXXX LINE ERROR 
2655 SEXP REC LINE SEL 
BE fas DSCC BD 
 ~EEIE sWHERE XXXXXX=PC+2 OF CALL TO ERROR ROUTINE 
«BET ; AAR=EXPECTED LINE STATUS AT TIME OF ERROR 
«BETS Bee: RECEIVED FINE STATUS BT TIME OF ERROR 
| Bele ecsL H ERROR OCCURED 
mete BOSTHE LINE ON UNT*H THE PROGRAM WAS OPERATING 
' eo. 
Zig 
| «-BELS QH4579 212737 QuE7S7 Olyg7e ERALS: Moy aML INER, ERRMSG 
| «ERD EEce Sie7zr Ciscko Sis? MOV ss ERTABS/ERTAB 
j coe. Poni - Poe wee Tow 
| 


2$22 


cow 
u 


iyrurur. ’ 
furutut 
MPU £ Gs 


fu 


wurore 
fue-o~ 
om 


Paar tats 
Oeriue £6 


NOIOMIYAIDIOVVIOVOOHVOOOOWOUO0ooO 


1 eT os | os | es | oe] oe | oe | Se | oe 





905937 
levee 


L?-MAaY-7§ 


17777) 
600103 
o20000 
O166SS 


016624 
016824 


01467e 


o14704 


100909 


000i76 


09591 


wwwe 


090198 


ERRGEN: CLR . PSW 
oo1784 MOV sINTENS aTKCSR 
001768 gil 13, 2SWR SIF SW13=1, D0 NOT 
NE (PE R MESSAGE 
CMP (5P), SAVPC : SAME ERROR AGAIN 
369 3 
CLR ERRFLG 
savose 
TST ERRFLG :IF ERROR OgcURED FLAG=! 
1 -TYPE DATA ONL 
OCTASC :TYPE PC+2 aE fou TO ERROR ROUTINE 
ERTARO 
TST ERRMSG 
REO 2 
TYPE : TYPE ERROR MESSAGE 
ERRMSG: 0. 
1: ST ERTAS 
REO a 
OCTASC : TYPE DATA 
ERTAS: 9 
z: RESOS sRESTORE RO-RS 
sERROR HALT SERVICE 
1702 .3: BIT aSWiS, aSWR F SW1S=0, DO NOT 
BEQ 4 i ON “Pan be 
HALT . sHALT AND DISPLAY ADDRESS OF FOILING TEST 
O1ss2o CMP aSWREG, SWR 
NE 4 
CNTLUU 
6624 .4: MOV #1, ERRF :SET ERROR OCCURED FLAG 
DO1e40 SIC Ih Sena” SrKCSR 
RTI sRETURN TO TEST 





DO? 


13:35 PAGE 64 SE3 6081 













:GENERAL ERROR HANDLER 

TYPE PC+e OF TEST THAT PATLED 

TYPE ERROR MESSAGE (IF _ANY 

;TYPE DATA RELATING tO FA! LURE (IF ANY) 


me mm i ns a ee ee eee 





ee 


DIOMK=C MACYL1 271732) 


OZSDHKC.P 12 


2665 O14: 
SEE O14759 OO0006 
514; 5 


2es74 O14 OL6846 
Sere Oisooc 900003 
2677 O01500e 016652 
267 15004 poee 
oor 15006 } s&5 
2689 915010 900002 

Bi O15012 O16e46 
e682 015014 900002 
e683 9015016 Q00006 
2684 915020 016550 
e685 0150ee 900003 
2686 2iS0c4 016646 
Beg7 015026 o00002 
e688 015030 900006 
2689 015032 016652 
2620 915034 000006 
2691 015036 16650 
26Se 015040 009004 
26393 Oi5042e 000003 
2534 QO1SO44 916652 
Beas O1504e 0000 
269 015050 016850 
2637 915052 000602 

98 015054 O16846 
2639 Q015056 000002 
2700 Oi5060 Olesde 
2702 


000091 
115064 000005 
S056 900176 
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ERTABO: 


;fASLE S OF DATA FOR ERROR TYPEOUT 
; TABLE FOR TRANSITION STATUS ERROR 


1 
6 
SAVPC 


ERTSB1: 3 


ERTAB3: 


ERTABY: 


ERTABS: 


SWRTB: 


| ee ee ee a eee 


é 
AVRS 
SAVRY 


WEWITUWIMMNWUWIC TUWITUUWIL) 


ww 
YD 
<= 
Aa 
n 


SAVRH 
SAVR3 
SARI 


1 
SWREG 





E07 


SEQ C082 















;CONTAINS EXPECTED TRANSITION STATUS 
;CONTAINS RECEIVED TRANSITION STATUS 
;CONTAINS NUMBER OF LINE WHERE ERROR OCCURED 


:;CONTAINS EXPECTED LINE STATUS 
;CONTAINS RECEIVED LINE STATUS 
;CONTAINS NUMBER OF LINE WHERE ERROR OCCURED 


;CONTAINS EXPECTED CONTROL STATUS 
;CONTAINS RECEIVED CONTROL STATUS 


:CONTAINS EXPECTED LINE STATUS 
;CONTRINS RECEIVED LINE STATUS 
;CONTAINS NUMBER OF LINE WHERE ERROR OCCURED 
;CONTAINS NUMBER OF LINE UNDER TEST 


FO? 
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2708 
2707 sCONVERT OCTAL TO ASCII AND 
2.98 :OUTPLT ON TELETYPE 
e7id 915070 O17605 9c0005 OCTASN: MOV a(SP),RS -GET POINTER TO TABLE OF DATA 
2711 915974 o&2718 900002 ADD #2, (SP) 
e712 015100 Ole737 000010 015430 MOV #10, RADIX 
e713 015106 012704 de0206 MOV #MBtD+2, RY :SET UP POINTER FOR CONVERTED DATA 
27:5 O15li2 O12e537 616660 MOV (RS) +, WROCNT :GET NUMBER OF WORDS TO SE CONVERTED 
2715 QIS11E O1e537 16662 OCTASL: MOV (R5)+; CHRCNT :GET NUMBER OF DIGITS IN WORD 
e7ig 015122 013537 oO1S4e4 MOV 3(RS) +, BINWRO :GET DATA TO BE CONVERTED 
evi? 015126 109010 CONVERT :CONVERT TO AS 
271g 915130 605337 o1see0d DEC WROCNT -IF ALL YATA IS NOT CONVERTED 
2718 915134 09137 NE OCTAS! : CONTINU 
2720 O15136 112714 000100 MOVE #100, (R4) !PUT TERMINATOR AT END OF MESSAGE 
er2l 15142 905737 015260 TST SMLN 
2722 015146 001002 BNE 1$ 
2723 915150 104004 TYPE :OUTPUT CONVERTED DATA 
e724 015152 020254 MBC :79 TELETYPE 
eee 5is1s4 905002 13: RTI :RETURN TO CALLING ROUTINE 
e727 
e7e8 
e729 O1SI5& 008027 015254 CNTLU: CLR TMP} 
2730 015162 Ole737 O0000: osess MOV #1, TMP2 
2731 015170 104004 
2732 915172 O20181 SSWREG 
e733 615174 052737 co000! o1s260 BIS ss #1, SMLN 
2734 915202 104006 ocTASsC 
e725 015209 O1sdbe2 SWRT 
2736 015206 104004 TYPE 
2737 015210 Oeneds MBCD+2 
2732 015212 104013 INSTRG 
e739 O1Sei4 Seni7e SNEWI 
e746 815216 o90000 0 
2741 915220 177777 177777 
2742 015222 015254 TMP} 
743 Q15224° 123727 o16154 oco0015 CMPB —sINBUF, #15 

| 5744 Olse32 O01403 BEO 

| 2745 015234 013777 915254 001356 MOV TMP! aSWR 
e74e C1542 005037 015256 13: CLR TMP 
2747 OlS246 395027 4915260 cLR SMLN 

| e748 O1S352 9npade aTi ! 

2748S 015254 000000 TMP!: 0 

| e750 015256 00000 T™P2: Q 

015260 900000 SMLN: 6 

' 





GO7 
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; INTEGER BINARY TO ASCII CONVERSION COMMON ROUTINE 





756 
75? 915262 913700 01666 BINASC: MOV CHRCNT, R T UP COUNT FOR DIGITS TO SE CONVERTED 
5526 pt esee Bigs a BaeSh5 MOV STEMTAB, 8, ig T UP CINTER. Fok PE eoRERY STORAGE 
5759 015272 19401! BINASA: EXTRACT EX XTRACT ONE DIG 
2780 015274 O62737 cCOOEO o1s426 900 #60, DIGIT :CONVERT FROM ae TO ASCII 
2781 015302 113721 c:5426 MOVB DIGIT, (R1)+ RE 
e762 015306 905300 DEC RO Te ALL DIGITS NOT DONE, 
e763 915310 90137 __ BNE BINASA TINUE 
e754 O15312 114124 BINASB: MOVB -(R1),(R4)+¢ 'REVERSE ORDER OF DIGITS 
e765 O15314 505337 o1s66e2 DEC CHRCNT iT ALL CHARACTERS ARE NOT 
2766 015320 901374 NE BINASB CONTINUE 
ever OlSsee iiere4 OOdC4O MOVE #40, (RY) + tNSeET CBeace AFTER LAST DIGIT 
eres 015326 odode RTI RETURN TO CALLING ROUTINE 
‘Ss 
err :SINGLE PRECISION UNSIGNED DIVIDE LOOP 
2772 015330 005037 o15426 OIVI: CLR DIVIDH 
2773 015334 023737 015426 O1S430 DIVIU: CMP DIVIDH, DIVIS 
2774 O1S342 103027 BHIS  DIVIB 
e775 O15344 Ol27a7 oOO0021 o1s4o4 MOV #17. ,DIVONT 
3776 015352 000407 R vie 
777 015354 023737 O1S426 015430 DIVIA: CMP DIVIDH, DIVIS 
2778 915362 103403 BLO DIVIC 
779 «515364 162737 0154320 915426 Sug DIVIS, DIVIDH 
2780 015372 OO6ic7 015424 DIVIC: ROL DIVIDL 
5781 1537 006137 o15426 ROL DIVIDH 
27B2 615402 005327 DEC (PC) + 
2783 815404 Ooo000 DIVCNT: 6 
2784 O15406 901362 BNE DIVIA 
e7es 015410 006037 o1s426 ROR DIVIDH 
2786 015414 905137 o1s4e4 COM DIVIDL 
2797 O1s420 900002 RTI 
27e8 O1S4e2 o00c0d DIVIB: HALT 
e785 815424 osn000 DIVIDOL: O 
27986 O1S42¢ 900000 OIVIDY: 9 
| e731 015430 S00000 DIVIS: 9 
e733 :SAVE PC OF TEST THAT FAILED AND RO-RS 
ers 015432 O16637 OCCOO4 OIEES& SVOSP: MOV 4(SP), SAVPC 
e737 :SAVE RO-RS 
| - 
| 2789 15440 010537 9O166S2 SvOS: MOV RS, SAVRS 
i peed 815444 010437 O16650 MOV Ra’ Saved 
| peol Oi54s0 010337 616646 MOV R3, SAVR3 
| B802 O15454 010237 O16644 MOV R>’ SAVR2 
| 2803 O15460 010137 Oi6é4e MOY RI’ SAVRI 
2605 Gis4e4 010037 O16e40 MOV RO’ SavRo 
Bets 015470 900902 RTI 
| 
H 
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2806 
e307 :RESTORE RO-RS 
2803 OSY72 013700 o1s640 RSOS: MOV SAVRO, RO 
2810 915476 013701 O1es4e MOV SAVRI’RI 
2811 O15s02 613702 O18644 MOV SAVRe | Re 
esl2 15506 013703 O1b646 MOV SAVR3. RS 
2813 O155i2 013704 O166 MO SAVR4’ RY 
2814 O15516 013705 oO16652 MOV SAVRS- RS 
esis 015522 900002 Q 
817 TELETYPE OUTPUT ROUTINE 
3 
2819 915524 917605 oo9000 TYPER: MOV a(SP) RS :GET POINTER TO MESSAGE CON STACK) 
2820 015530 d62716 o0000e ADD te, (SP) :CORRECT STACK FOR R 
2821 615534 195777 oc10s4 TYPERA: TSTS arcs :WAIT FOR TELEPRINTER NOY 
2822 015540 190375 BPL TYPERA 
2823 015542 122765 000012 177777 CMPBsa#12, -1 (RS) sWAS LAST ONE AL.F. ?? 
2824 O15550 001405 BEQ IF Y 
2825 015552 122765 090015 177777 CMP ss #15, -1 (RS) : WAS LAST ONE AC.R. ?? 
2826 015560 O01401 BEQ 1$ IF YES 
2827 O1SSs oo0402 BR 25 : CONTINUE IF NEITHER 
2828 O15564 004737 015634 1$: JSR PC. TYFILL :GO OUT PUT FILLERS 
2828 915570 122715 o50100 23: CMP #100 (RS) :IF CHARACTER IS NOT TERMINATOR, TYPE IT 
2830 015574 091001 BNE PERI 
282: 915576 o0000e RTT ; CHARACTER IS TERMINATOR, EXIT 
e832 015690 122715 op0042 TYPERL: CMPB #2 (RS) 3 1F CHARACTER=42, 
2833 C15604 OO140e BEG YPECL ;TYPE LINE FEED 
2834 15608 122715 ooo04s CMPB Ws (RS) LIF CHARACTER=4S 
2835 015612 001403 BEQ TYPECL : TYPE ACHRRIAGE RETURN 
2836 015614 112577 000776 TYPER2: MOVB = (RS) +, STPDBR 5GET_¢ RACTER 
2837 O15620 009745 BR TYPERA TYPE” fT 
2838 515622 142715 ooo040 TYPECL: BICB #40, (RS) i CONVERT ‘CODE OF 42 OR 4S 
| ps3e O:S626 528715 090019 RISB =—s- #10: (RS) :TO le OR 15 
| 840 OlSese 000770 BR TYPER2 ; TYPE ad 
mj 
SS4e 
2e43 sQUTPUT FILLERS AFTER <CR> OR <LF> CHAR IS OUT PUTTED. 
| 2845 O1SE34 113737 016720 016722 TYFILL: MOVB  FILL,FILLA :GET FILL COUNT 
2e4e 015642 113777 016721 OO0746 1S: MOVE FILL+1,aTPDBR :OUT PUT ONE FILLER 
2647 O15650 196777 000740 2s: TSTB  aTPCSR :WAIT FOR TTY TO FINISH OUTPUT 
B48 015654 190375 RPL 2$ :BR IF TTY NOT DONE 
48 01 105337 Ol6722 . - DECB~=Ss«é&F'ILLA :COUNT ONE FILLER 
§ S162 601367 BNE 1g :BR TIL ALL DONE 
zi 15664 000207 RTS PC :RETURN TO CALLER ABOVE 
4 
=853 s INPUT OCTAL CHARACTER STRING 
=e54 ; TERMINATOR IS CARRIAGE RETURN 
«BES !IF MORE THAN SEVEN (7) RHARAC TERS INCLUDING 
| BSE CARRIAGE RETURN ARE TYPED, THE IN PUT WILL 
| 2857 :BE RE-REQUESTED 
ess 
«2853 CISeee INSTR: 
| 26E0 Oi5666 011605 MOV (SP),RS :GET POINTER TO ARGUMENTS 
| 2861 O15670 012537 oO15714 MOV (RS)+, MSG “GET MESAGE TO BE TYPED 
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Pl 
2862 01567 
3863 015700 
Bee8 915704 
esss 015710 
2866 o15712 
3867 015714 
2968 O15716 
2869 0157¢2 
2870 015726 
2871 915732 
e872 015734 
2873 015740 
2874 015745 
2875 015754 
2876 015760 
2877 915764 
2878 015766 
2873 015772 
2880 015774 
2881 016000 
e882 016002 
2883 O16006 
2884 016010 
e885 16014 
2885 018020 
2887 916022 
esse 016024 
2889 O18026 
2890 016030 
2891 018032 
2892 
2893 
3504 
2895 016034 
2865 01$036 
2897 016040 
289s O16044 
2899 O16046 
2300 
2901 g1g0se 
2902 O16054 
5605 Oleoed 
2904 016062 
2905 O160 
2906 916070 
2507 016074 
2908 O16076 
2909 Ol6102 
2919 O16104 

| 2811 016106 
2912 O16110 
2613 Oisli2 
e914 
2915 
eSié 
2917 O1b114 


0 
lee714 


001431 
l214e7 


000760 


020337 
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aati 
co001s 
o0c0es 
915254 


000602 
000574 


016154 
000015 


oc0ce0 
000067 
o0cGED 
000015 


016150 


015254 
015254 


INSTR: 
MSG: 


INSTRB: 
INSTBB: 


INSTER: 


INSTR2: 


INSTRD: 


INSTR3: 


;CCNVERT ASCII STRING TO CCTAL 


SINT 

STKOBE TMP] 
, THPL 
TMP? (R4) 


INSTR 
(R4)+, JTPDBR 
aTPCSR 
INSTRC 


R3 
INSTRB 


INSTR1 


#INSUF RY 
#15, (R4) 


R 
INSTRD 


;GET LOWER Limit 
;GET UPPER LIMIT 
iGET 1 Data STORAGE LOCATION 


i ASBE MESSAGE 

;SET UP CHARACTER INPUT BUFFER 
;SET_UP INPUT COUNT 

;WAIT FOR CHARACTER 


71S CHARACTER TERMINATOR 
;IF IT IS, CONVERT INPUT STRING 


;WAIT TO FINISH TYPING 


; UPDATE ne COUNT 
san D CONTIN 
TYPE “?" AND RE-REQUEST INPUT 


;GET POINTER TO ASCII STRING 


31S TERMINATOR FIRST 
;CHARACTER IN STRING 


15 CHARACTER OCTAL DIGIT 
>=CH 
CHARACTER IS OCTAL DIGIT 


;STRIP ASCIT 
:GENERATE OCTAL NUMBER 
:IF END OF STRING, CHECK LIMITS 


;MULTIPLY DIGIT BY 10 COCTAL 


;GET NEXT DIGIT 


; TEST NUMSER TO SEE IF IT IS WITHIN LIMITS 


CMP 


R3,HILIM 


;TEST HI LIMIT 


SEQ 0086 
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ONVNKDNOOOAVIOOO000 ~—- 
LWIGIGWrurun 


WIN 
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016146 
000016 
015256 


000024 
016654 
016234 


C1lE6S4 


016176 


001756 
001262 
000349 
014334 


000029 


00002e 
016See O00ve0° 
000340 O000ee 
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OOOO wWw rar F 
_ 


000024 


000924 





INSTER 


t 
R3,LOLIM 


STER 


N 
R3, JSTORE 


TMPe 
INSTER 


:ENTER HERE ON POWER FAILURE 


a 


;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


;RESTORE STACK POINTER 
;RESTORE RO-RS 


SAVSP, SP 
(SP)+-R5 
(SP )+,R4 


#340, -(SP) 


TSTENT 


20 
#340, 22 


;1F R3>HILIM, ERROR 


;SAVE RO-RS ON PROCESSOR STACK 


;SAVE STACK POINTER 
;SET_UP FOR POWER UP TRA 
;HALT ON POWER DOWN NORMAL 


;SET UP FOR POWER FAILURE 


G THE FIRST BASE ADDRESS 
;SAVE 20 


SEQ 0087 
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oo = 


ttt ett tet tt tt ttt ttt ttt ts mt tte tas 
oow rnro o oo 


000300 


000200 
000022 


000340 


016609 


oc002e 


oo002e 
008920 


I7-MAY-7& 13:35 PAGE 71 





KO? 





a DATA1 


DATA2 
pave JDATAL 
T aRTRE ;I0T TRAP 


#4 DAT A 
th #1000 


TNO ;SET UP DEFAULT 
wear an TSTPNT 
#34 OFS t PREVENT INTERRUPTS 
BINTENR, ,AQHICSR FSET IN INTERRUPT ENABLE 
SOONE SDAncgR :SET BONE. .AND INTERRUPT 
(SP)+, 22 sYOU DIDN’T INTERRUPT ? 
(SP)+' 20 “RESTORE 20 8 22 
JDHMCSR :STOP ALL INTERRUPT 
#340, PS : 
me sYOU SHOULD HAVE INTERRUPTED 
($P) DHIVEC sEXTRACT VECTOR +4 

MVEC CREATE LVL 
BeAvec DHMLVL ss; 

HMVEC -CREATE AND SAVE VEC 
aap” PS :PREVENT INTERRUPTS 
JDHMCSR : 
(SP)+,22 sRESTORE 22 
(SP)+,20 RESTORE 20 
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fae | oe | oe | oe | oe | oe | oe] oe | oe | oe] 


1S644 
46 
16650 


16664 


16676 


QOVOON0OVONO WOOO OOVVOOCOVVOVVOOVOVVOVOVOVOVOVVOOVOVOVON00N0 
bo eh bbe 
o 
3 
ia) 
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DHMVEC: 


SWR: 
DISPLAY: 


ERRFLG: 


F : 
RNGRET: 
MSTATE: 


MLINER: 


LO? 


SEQ 0089 


;TOIRECT POINTERS 


309 ;MODEM CONTROL INTERRUPT VECTOR 
: 302 ;MOOEM CONTROL ONTERRUPT PRIORITY 
: 170500 :MODEM CONTROL CONTROL STATUS REGISTER 

170906 ; MODEM CONTROL CONTROL STATUS REGISTER 

id 

177562 

177564 

177566 

177570 

177570 

;PROGRAM VARIABLES 

0 

0 

0 

1] 

0 

0 

0 

0 

0 

0 

Q 

0 

0 

0 

0 

0 

TSTTBO 

Q 

0 

0 

0 

0 

0 

0 

0 

0 

0 

177777 

0 

f FILL CHAR/COUNT 

4 TEMP STORAGE FOR FILL COUNT 

-ASCII ;STATUS ERROR%"EXP RECa; 

-ASCII ;LINE ERROR“"EXP REC LINE SELQ; 
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S065 O16764 051105 o47See2 
3065 Q16772 O4e44e 050130 
3067 017000 041505 046040 
3058 017006 Oe2010S 042523 
3069 017014 O44514 O4e25) 

3079 0170 OSilee OS1117 
3071 017030 O54105 de0120 
3072 017036 020103 O44514 
307 eae 100 

307 1704S 1e4Y 040522 
3075 Q170S2e OS2ll1 047511 
S076 Q17060 951105 O47See 
3077 017066 O4e44e 050130 
3078 017074 O41505 046040 
3079 017102 040105 

3980 017104 Oel04S 021045 
3081 Q171le 046101 O4044O 
3082 17120 O4eSe7 O044See 
3083 O17126 O4e040 952101 
3084 917134 O4eS23 ODeeSe4 
3085 Q17142 Oel04S 921045 
3086 Q1715G O4O0463 O46440 
3087 QOi7156 O4650S 041440 
3088 017164 942516 052103 
30 Ol7i72 051511 047503 
3090 917200 041505 Ce01e4 
309i 017206 OSele3 0e104 

3032 G17e213 O4S Oeet4e 
3093 0172 031060 020103 
3084 O17e 2504 O0e0115 
3095 017234 047116 041505 
3096 QOl7e42 O44S504 041523 
2097 Oi7eS0 O4eS16 052103 
3098 O17eS6 051505 O2eeSe4 
3099 017264 021045 021045 
3190 Qi7e72 O43511 047111 
3101 017300 020105 O44514 
2102 017306 940055 

3103 017310 O2104S 047101 
3104 QO17316 051105 O4%6040 
3105 017324 026505 100 
3106 017327 O4S 930442 
3107 017334 020101 O4eS24 
3108 O17342 O41440 046517 
3109 7350 2105 OS 
3110 917356 021045 030062 
3111 017364 OS2040 051505 
gll2 017372 047503 050115 
3113 017400 O4eSe4 021045 
3i14 017405 O4S 051442 
3115 017412 045511 020105 
3116 O17420 020131 OS2le4 
3117 0174 042513 020131 
3118 017434 O52e040 9051505 
3119 017442 O44504 041523 
2120 017450 042516 052103 


| 
; 
t 


OeeSee2 


042516 
051516 


O47 111 
o44so4 


C42516 


053523 
O47111 


021460 


MLINE!: 


MTRANE : 


DIALM: 


MTLOST: 


MT20eT: 


MSELOR: 


MSELAN: 


MTi03A: 


MT202A: 


MDISC: 


~ASCII 


-ASCIT 


-AECII 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT 


MO? 


;LINE ERROR“"EXP REC LINE@; 


; TRANSITION ERROR%"EXP REC LINE; 


3%" %"DIAL ANSWERING DATA SET%"a; . 


3%"°%" 103A MODEM CONNECT-DISCONNECT TEST%"d; 


3%" 2%2"202C MODEM CONNECT-DISCONNECT TEST“"Q; 


3; 2° 2" ORIGINATE LINE-a; 


s“"ANSWER LINE-@; 


;x"103A TEST COMPLETEX"2; 
;x"202C TEST COMPLETEX"2; 


;“"°STRIKE ANY TTY KEY TO TEST DISCONNECTQ; 
















SEQ 0090 
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[7 ) 

im 

Ww 
Qodo00 





—* b= b= b= b= b— ps 9 ps 9 9 — 9 he pe ps 9 po pe po pe 
ve “J 3 
uw 
+t 
o 


7632 






17730 


SNNISINIO OOO OOOO OmuuIiuiut QNUTU0101 0 ee A EE EWI WWIWUWIGWIWWLIL 


WO WIIG) GIGI 6) GI OIG) GI GIGI GI GI GI GI 0 GG) GJ) GI GIG) GIG) GG 6) GI GI GIGI GI GI GI GI GI GC) CI GIGI GI 0. GI GIGIGIOI GJ) 
“J 
o 
oO 


0 9 9 = be 8 bb 0 0 8 0 0 0 0 bb 2 = 2 0 bs = 2 be b= bo be pe bo bs ps bb 0 bs 2 bo 2 po ph pe 
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O2e44e 


O42Se4 
o4eS24 


030442 


047116 
051505 


055104 


026455 
052103 


O4eS2e 
042516 


020122 
052123 


051505 


C4e516 
042502 


046101 
051117 


o4CSe4 
0S21e3 


O40S22 


100 
OSilee 
O42Se4 


M16: 


MTITLE: 


MVECTO: 


MREGAD: 


MLINSL: 


MTEST: 


MQM: 
MCRLF: 
MLINE: 


MLINEI: . 


MFATAL: . 


MTRNDE: 


MPFAIL: 


MPF 1: 
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-ASCIT 


ASCII 


~ASCIT 


-ASCIT 


-ASCIT 


-ASCII 


-ASCIT 


-ASCIT 


NO?. 


34"°%"16 LINE SCANNER TEST"; 


3%" %"DZDHK-C — MODEM CONTROL DIAGNOSTIC 


;%" VECTOR ADDRESS-a; 


;%"CONTROL REGISTER ADDRESS-a; 
;“"LINE SELECT PARAMETER -d; 


;*"TEST-a; 


. ®. 
; 3 


AO 
;X°SINGLE LINE CABLE TESTx"a; 


;%"LINE NUMBER-a; 


;FATAL ERROR%"CSTAT LSTATI; 


;%" TRANSITION DETECTED“"CSTAT LSTATQ; 


;%"POWER FAILURES; 


;-CURRENT TEST WILL RESTARTX"2; 








n'a; 








— — ed 


7 B08 
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ll wes ae 


oe a ee oe 


givr Oedie& OS2l23 053440 4611) 
3i78 S201" Oelll4 O4eSee OSele3 
3i7S 525182 O51) o28534 40042 
Si8O JellS2 041536 100 MCONTC: .ASCII ;3tCa; 
318) zezl3 138 O40126 MCONTV: .ASCIT :tVa; 
3i8e OcJlS6 C#6136 i0Q MCONTL: .ASCIZ ; tla; 
3:83 92016) OYS OSi442 OS1127 S§SWRED: .ASC.I = 3%"SWR= a; 
3i84 20166 Oe007S Q4O04) 
3:85 O20l"e SeDQ40 O4040 OS3S0S SNEWIS: .ASCII ; NEW= Q; 
3i56 520200 S2cirS o4odd 
gis? Oe0e04 vell¥S MBCO: ASCII 5%"; 
2188 JeS306 =.+100 
sis EVEN 
3:50 620306 40007 MEPaSS: 40007 
3191 020312 Q00000 TEMTAS: 0 
313e Oe20s2e 2.410 
3193 
3i94 O20322 000000 0 
3i9S 
te ;EMT DISPATCH TASLE 
138 020324 14556 EMTTAB: ERRCS 
3199 QO203e6 014574 ERALS 
3200 20330 14164 LOOF 
3201 Sed232 914410 FREEZ 
3202 S203 O15524 TYPER 
secs 020336 015432 SvOSP 
geQ4 Oe0340 915070 OCTASN 
SeUS Oeste 015472 RSOS 
3206 O20344 O1526e STNASC 
geO? 020346 015330 DIV! 
3208 O203s0 014452 EaR 
320$ 520352 015686 INSTR 
3210 Se0354 914479 ESRT 
Zell Q2035& O14S1e ERRS 
3eiz 929362 14534 ERRN 
gel3 Qe0%e 913102 SETLI! 
2214 020364 913136 SETUPS 
| «3215 OS0266 01337 CKRNG 
| 3218 920370 013470 WAITR 
| 3217 O20372 013556 SKTRN 
Hie G20374 disse WAITRR 
3219 Oe037— 015156 CNTLU 
| #20 020400 014152 CKINT 
: geel De040e 90176 KBOINT 
| geze Ce04O4% 900000 EMTLIM: Q 
| 3223 C2040 020436 TSTLST: TSTTBC 
| geet 920410 O20640 TST781 
| geeS Oed4le e702 TSTTS2 
| 3226 020414 020710 TSTTB3 
| 322? O204i6 90000 0 
| 3228 Oe0420 900000 0 
zee? Cec4e2 000900 9 
Seco Seo4e4 90000 6 
esi 020426 609027 SFC NO- 
Z22e 020420 CO5007 N1-100-1 





ee ee ee ee - ee ae ee ee ee SS - e - 
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3233 920432 90090! N2-200-1 
3234 20434 900090 _.. Na-300-1 
ee Den3g Sosei0 TST780: 12 
S332 Souqs Soseae 1 
3223 Oeo444 COsdcC TIMES 
3238 Oed44 902300 T2 
3240 520450 04000 TIMES 
334] 20452 902342 13 
3242 550454 95400 TIMES 
3243 O20456 O02404 T4 
3344 520450 304000 TIMES 
3245 2042 502546 15 
SE4— 20464 04000 TIMES 
3247 6 902510 : 
3548 Os0470 Oa4cco TIMES 
3243 S20472 02554 

3250 De0474 S040d0 TIMES 
3251 O2047— 02640 ro 
3252 520S00 994000 TIMES 
32 O502 02730 tt 
3254 20504 d04000 TIMES 
3255 9259506 003020 Tle 
3256 320510 O04500 TIMES 
zee, Cede esis? r13 
3268 520514 504006 TIMES 
3255 20516 693200 Ti+ 
3265 620529 904500 TIMES 
3261 20522 903270 *i5 
32e2 520524 04000 TIMES 
32¢3 20526 303356 T16 
3254 920530 00450 TIMES 
3265 920532 003455 Tl? 
325 520524 904000 TIMES 
3267 50536 002532 — 120 
3266 920540 904500 TIMES 
3265 50542 003620 131 
3279 O20S44 d04000 TIMES 
3271 Oecs4e 003714 122 
S272 20550 900400 TIMES 
3273 025552 04032 13 
3274 20554 900400 TIMES 
3275 O2055e 904230 T34 
3276 20560 900400 TIMES 
3277 520562 004406 Tes 
327 520564 000200 TIMES 
3278 S205 OO45SE . 
3220 920570 00200 TIMES 
3201 Oe0s72 05014 

3262 020574 000200 TIMES 
3283 Ce0s76 00522 

3264 020600 900200 TIMES 
3265 Gecede 905510 

3286 520604 002 TIMES 
3257 F20e0e O0S74E 

2262 520610 00200 TIMES 


’ ee eee 
ee ee a a a 
' . e 


DO8 


7 se9 cOs4 
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3289 020612 206164 133 
3230 920814 909200 rr 
3251 Bas doe4de 1 
Be Bee Bae Hes 
38 C2062) SoNoH0 1s 
see D50630 Bo4000 TIMES 
a He Sue ties 
3293 020636 900900 0 
sie SERN DOrSze TsrTBis T100 
301 Qs0e42 59000! 

| S555 D5peee Soros 1193. 
3305 20652 004000 TiN 

| HE 520659 dios 1103 

| Be Be bee us 
S355 55nee3 BeNaD Ties 
Sit SSoece bescso TIMES 

| 333 e585 34 TiOs 

| IZ 020670 10635 Tice. 

| iy BReS§ aYTare TiO? 
3315 20676 604000 TIMES 
2318 0207) a's! we TSTTB2: 209 
317 Se07te O11164 rea: T20 

| ae koe 5 

| $26 Bepees Brié0 TST7B3: 7300 

| 3321 Oed7ie 00001 ae 

| site 000001 om ly 


ee 
ee 
a 
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o-- ba bes 


BS trata is] Re 


sur 


we 
BOOS 9000o 
+ Ce + (0+ (0 0 0 8 bo oo pe oe 
Pty tates £tcoum 


Sat 
MM Ls 


QOOo0r-V00r-r-O0O0 
ar 





CHIWOC 
0-40-40 40 40-4" 
-WNUNG> 


<> OU 
} ~4=z 


—— 
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Bile HR 
a BS 


DIVIS Q15420 
OIVIU 015334 
OMYRTI OOee02 

= 00920 


OP 14040 
RR 014452 
ERRCS O14SSE 
ERRFLG O18624 
ERRGEN 04612 
RALS O14574 
ERRMSG 014672 
RRN 014534 
RROR = 104012 
ERRORC= 104000 
ERRORL= 104001 
ERRORN= 104015 
ERRORS= 104015 
ERRORT= 194014 
ERRS 014512 
ERRT 014470 
ERR] OL4O01& 
ERR2 014020 
ERR3 914922 
reas 014024 
ERTAB 014704 
ERTABO 014752 
ERTAB1 014760 
ERTAB2 014776 
ERTAB2 015014 
ERTABY 015025 
ERTABS O01504° 
EXTRAC= 104011 
TEX Q13006 
FATRET 013020 
FILL 016720 
ILLA 016722 
FREEZE 014410 
FREEZX O1L4444 
GETLIN 013102 
GETLNS= 104017 
GFrO 020426 
BILIM O16150 


Hite a 


MEPASS 020306 
MFATAL 17775 
MLINE 017723 
MCINEI 017756 
MLINER 916757 
MLINEL 017014 
MLINSL 017652 
MPFAIL 620073 
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DIDHK=C_MACYL1 eri rse 
SYMBOL 


DIDHKE.PL1 
MUXISC 010546 
MUX15D 02050 
MUXISE Q19576 
MUXISF 010632 
MUX16 910634 
MUX158 aad 
MUXi68 010574 
MUX1EC O10722 
UXi 010734 
MUXISE 9107Se 
MUXI6F 911006 
MUXI? O11919 
MUXI7A 011925 
MUXI7B 011059 
UXi7C + 01107§ 
MUX17D 011119 
MUXI7E O11126 
MUXI7F Qilise 
MUX2 095014 
MUxeA 6905042 
MUXeB 905110 
MUXeC 005146 
MUXeD 005160 
MUXSE 905200 
MUXeF 005232 
IX3 905252 
MUXSA 005300 
MUX3B 005346 
MUX3C 995404 
MUX3D 05416 
MUXSE 005436 
MUXSF 005470 
MUXY 005519 
MUXSA 005536 
UX4B 005604 
MUXSE 905642 
MUXYD 905654 
MUX4E 005574 
MUXHF 005726 
! 005746 
MUXSA 005774 
MUXSB 006026 
MUXS® 006054 
MUXSD  QO6066 
MUXSE 906104 
MUXSF 006140 
MUXE  O06164 
MUXBR 86 ODE2 12 
MUXEB 006244 
MUXBo 006272 
MUXBD 006304 
| MUXEE  O063e2 
MUXEF 006356 


L7-MAY-7S 13:35 PAGE 80 
TABLE 
MUX? pr ios 
MUX7A 006430 
MUXTB Q0646e2 
MUX7€  Q06510 
MUXTD Q06S22 
MUX? 06540 
MUX 06$7 
MUXS 008629 
MUXB8A 906636 
MUX88 006572 
MUX8C 006700 
MUX8D 096724 
MUXSE 006762 
MVECTO 017574 
MO = 90004¢ 
M1 = 009110 
M16 017455 
N = 000300 
NXTTS Q14036 
NO = 0090040 
NI = 000110 
Ne = 000202 
N3 = 000301 
CCTASC= 104006 
CCTASN 01507 
CCTHS! 915116 
ORGFLG 016702 
O8GTR OleSe4 
ORGTRR Qle7le 
ORGTRI O1e640 
OSGTRe 012654 
ORGTR3 012670 
ORGTRY 012704 
PASCNT 916630 
PC =%000007 
PFAIL 016176 
POPRO = 012600 
POPISP= 005726 
POPeSP= Ce2s26 
PS = 177778 
PSW = 17777 
PUSHRO= 01004e 
PUSH1S= O0S746 
CYSHOS= O24646 
RACIX = 015430 
REGST! OO1S4E 
ESTAR 016234 
FESTAL 016202 
RESOS = 104007 
RETURN 916634 
RING = 000200 
RINGF = 100000 
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DZDHKC PLL “SYMBOL TABLE 


T20202e Oll7ee T2e0264 Qie2de Te02J4 012544 137 007252 XFLAG 901252 
TeQeD3 Oll7e6 | T20eH_ OQleedé Tel 003620 TY 002404 xM = 000101 
T202D4 Q1173e TeQeHe QleeSe Tee 003714 TS CO2446 = 200 
TeQ2E § O11736 TeDeHS Ql2256 Té3 004032 i) 002510 20 
TeQecE1 912002 T202H4 Ole2be Te4 004230 17 00eS64 XORSVC + O01eS4 
TeJebe 012006 TeO2HS OQleesb Tes 00’ '306 VECSTA 001374 SCRX = Q0000 
TeC2Es Qledle TeOeI_ Qleeze Teb 063556 VECSTR 001354 ble 
TeS2eY OleCis TeQ2l2 Qle3Se Te? 005014 VECST1 001500 X1B OC1ES5 
Teter Qledee TeG2t3 012356 T3 002342 WATTR 013470 SNEWIS 920172 
TeveF2 Ylelle TeQelT4 Oleste T30 00S25e WAITRN= 104022 SSWREQ 020161 
TeOeF3 012106 TeO2TS 012366 T300 011540 WAITRR Q135e6 «4 014674 
TeC2F4Y OQlelle TeQeJ Qle3e 3 005510 WATTR1 913540 2 014706 
TeQeFS Olelis Te02eJN 012550 T32 005746 WAITS = 10402 3 014710 
Te0eG Qlelee Te0eJS Oledse 133 006154 WROCNT O168EC 4 014734 
TeGeGl 012166 Te02J1 012530 T34 006402 X 00 = 020714 





ERRORS DETECTED: 0 ; 
DEFAULT GLOSALS GENERATED: 0 


#DZDHKC, DZDHKC.’SOL*DZDHKC.P11 
RUN-TIME: 14 26 2 SECONDS 

BUNT eae ATIC: 79-4321 

CORE USED: 8K (iS PAGES) 
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